S000517


Pairs giving the number of primes less than 10^n of the forms 4k+1 and 4k+3.

1, 2, 11, 13, 80, 87, 609, 619, 4783, 4808, 39175, 39322, 332180, 332398, 2880504, 2880950, 25423491, 25424042

1

S000517

T. D. Noe, Plot of 9 pairs                                

(Mma) a = 4; 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. S000518-S000525.

nonn,tabl

T. D. Noe, Mar 06 2015

© Tony D Noe 2014-2015