OFFSET
1,3
LINKS
Tomás Oliveira e Silva, Tables of values of pi(x) and of pi2(x)
MATHEMATICA
a[1]:=0; a[n_]:=Module[{count=0}, For[k=Prime[PrimePi[10^(n-1)]+1], k<=Prime[PrimePi[10^n-1]], k=NextPrime[k], If[Part[d=IntegerDigits[k], 1]==Part[d, 2], count++]]; count]; Array[a, 7]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stefano Spezia, May 17 2025
EXTENSIONS
a(11)-a(23) from David Radcliffe, May 17 2025
STATUS
approved
