S000523


8-tuples giving the number of primes less than 10^n of the forms 16k+1, 16k+3,, 16k+15.

0, 1, 1, 1, 0, 0, 0, 0, 2, 4, 3, 3, 3, 3, 3, 3, 19, 22, 22, 24, 18, 22, 21, 19, 144, 155, 162, 153, 151, 156, 152, 155, 1188, 1208, 1200, 1200, 1196, 1201, 1199, 1199, 9761, 9838, 9816, 9832, 9791, 9815, 9807, 9837, 82967, 83039, 83065, 83117, 83009, 83122

1

S000523

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

T. D. Noe, Table of 9 8-tuples

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