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