A152275 Number of 3's among the digits of all n-digit primes.
1, 8, 66, 602, 5552, 52541, 505880, 4907822, 47923752, 469985783, 4625005356, 45629711436, 451086676886, 4466423651321
Offset: 1
Crossrefs
Programs
-
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 *)
Extensions
a(12)-a(14) from Giovanni Resta, Jul 20 2015