A073506 Number of primes == 3 (mod 10) less than 10^n.
1, 7, 42, 310, 2402, 19665, 166230, 1440474, 12712499, 113765625, 1029509448, 9401979904, 86516427946
Offset: 1
Examples
a(2)=7 because there are 7 primes == 3 (mod 10) less than 10^2. They are 3, 13, 23, 43, 53, 73 and 83.
Links
- Eric Weisstein's World of Mathematics, Modular Prime Counting Function
Crossrefs
Programs
-
Mathematica
c = 0; k = 3; 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