S000520


5-tuples giving the number of primes less than 10^n of the forms 10k+1, 10k+3,, 10k+9.

0, 1, 1, 1, 0, 5, 7, 1, 6, 5, 40, 42, 1, 46, 38, 306, 310, 1, 308, 303, 2387, 2402, 1, 2411, 2390, 19617, 19665, 1, 19621, 19593, 166104, 166230, 1, 166211, 166032, 1440298, 1440474, 1, 1440495, 1440186, 12711386, 12712499, 1, 12712314, 12711333

1

S000520

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

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