%I #27 Oct 28 2021 12:59:31
%S 0,4,25,160,1193,9585,80020,686048,6003530,53378283,480532488,
%T 4369582734,40063566855,369893939287,3435376839800,32069022099022,
%U 300694113015105,2830466318006780,26735673312004455,253315661161665338,2406763761677705769,22923886160712831134,218839439542390117580
%N Number of primes less than 10^n with initial digit 1.
%H Chris K. Caldwell, <a href="http://www.utm.edu/research/primes/howmany.shtml">How Many Primes Are There?</a>
%H Xavier Gourdon & Pascal Sebah, <a href="http://numbers.computation.free.fr/Constants/Primes/countingPrimes.html">Counting the number of primes</a>
%H Henri Lifchitz, <a href="http://ourworld.compuserve.com/homepages/hlifchitz/Henri/us/ParPius.htm">Parity of Pi(n)</a>
%H Thomas R. Nicely, <a href="https://faculty.lynchburg.edu/~nicely/index.html">Some Results of Computational Research in Prime Numbers</a> [See local copy in A007053]
%H Tomás Oliveira e Silva, <a href="http://sweet.ua.pt/tos/primes.html">Tables of values of pi(x) and of pi2(x)</a>
%e a(2)=4 because there are 4 primes up to 10^2 whose initial digit is 1 (11, 13, 17 and 19).
%t f[n_] := f[n] = PrimePi[2*10^n] - PrimePi[10^n] + f[n - 1]; f[0] = 0; Table[ f[n], {n, 0, 13}]
%Y Cf. A073509 to A073517, their sum is A006880.
%Y For primes with initial digit d (1 <= d <= 9) see A045707, A045708, A045709, A045710, A045711, A045712, A045713, A045714, A045715; A073517, A073516, A073515, A073514, A073513, A073512, A073511, A073510, A073509
%K base,hard,nonn
%O 0,2
%A _Shyam Sunder Gupta_, Aug 14 2002
%E Edited and extended by _Robert G. Wilson v_, Aug 29 2002
%E a(20)-a(21) added by _David Baugh_, Mar 21 2015
%E a(22) from _Chai Wah Wu_, Sep 18 2018