S000521


6-tuples giving the number of primes less than 10^n of the forms 12k+1, 12k+3,, 12k+11.

0, 1, 1, 1, 0, 0, 5, 1, 6, 6, 0, 6, 36, 1, 44, 44, 0, 42, 300, 1, 309, 311, 0, 307, 2374, 1, 2409, 2410, 0, 2397, 19564, 1, 19611, 19667, 0, 19654, 166011, 1, 166169, 166183, 0, 166214, 1440021, 1, 1440483, 1440496, 0, 1440453, 12710866, 1, 12712625, 12711847, 0, 12712194

1

S000521

T. D. Noe, Plot of 9 6-tuples

(Mma) a = 12; 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]]

Cf. S000517-S000525.

nonn,tabl

T. D. Noe, Mar 06 2015

© Tony D Noe 2014-2015