Triples giving the number of primes less than 10^n of the forms 6k+1, 6k+3, and 6k+5.
1, 1, 1, 11, 1, 12, 80, 1, 86, 611, 1, 616, 4784, 1, 4806, 39231, 1, 39265, 332194, 1, 332383, 2880517, 1, 2880936, 25422713, 1, 25424819
1
T. D. Noe, Plot of 9 triples
(Mma) a = 6; t = Table[cnt = 0; k = 0; t = Table[lim = 10^n; While[a*k + b < lim, If[PrimeQ[a*k + b], cnt++]; k++]; cnt, {n, 7}], {b, 1, a, 2}]; Flatten[Transpose[t]]
nonn,tabl
T. D. Noe, Mar 06 2015