OFFSET
1,2
MATHEMATICA
Table[Count[Flatten[IntegerDigits/@Prime[Range[PrimePi[10^i]+1, PrimePi[10^(i+1)]]]], 9], {i, 0, 10}] (* Harvey P. Dale, Dec 08 2010 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jon E. Schoenfield, Dec 01 2008
EXTENSIONS
a(12)-a(14) from Giovanni Resta, Jul 20 2015
STATUS
approved