Quadruples giving the number of primes less than 10^n of the forms 8k+1, 8k+3,…, 8k+7.
0, 1, 1, 1, 5, 7, 6, 6, 37, 44, 43, 43, 295, 311, 314, 308, 2384, 2409, 2399, 2399, 19552, 19653, 19623, 19669, 165976, 166161, 166204, 166237, 1439970, 1440544, 1440534, 1440406, 12711220, 12712340, 12712271, 12711702
1
T. D. Noe, Plot of 9 quadruples
(Mma) a = 8; 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