A073505 Number of primes == 1 (mod 10) less than 10^n.
0, 5, 40, 306, 2387, 19617, 166104, 1440298, 12711386, 113761519, 1029517130, 9401960980, 86516370000
Offset: 1
Examples
a(2) = 5 because there are 5 primes == 1 (mod 10) less than 10^2. They are 11, 31, 41, 61 and 71.
Links
- Eric Weisstein's World of Mathematics, Modular Prime Counting Function
Crossrefs
Programs
-
Mathematica
c = 0; k = 1; Do[While[k < 10^n, If[PrimeQ[k], c++ ]; k += 10]; Print[c], {n, 1, 10}]
Extensions
Edited by Robert G. Wilson v, Oct 03 2002
a(10) from Robert G. Wilson v, Dec 22 2003
a(11)-a(13) from Giovanni Resta, Aug 07 2018
Comments