A231789 Count of the first 10^n primes containing at least one 3's digit.
3, 46, 466, 5091, 54595, 614992, 6460120, 67739219, 705998810, 7435919752, 76728753676
Offset: 1
Examples
a(1)=3 because there are 3 primes not greater than 29 (the 10th prime) that contain a 3's digit. Namely: 3, 13, 23.
Programs
-
Mathematica
cnt = 0; Table[Do[p = Prime[k]; If[MemberQ[IntegerDigits[p], 3], cnt++], {k, 10^(n - 1) + 1, 10^n}]; cnt, {n, 5}] (* T. D. Noe, Nov 13 2013 *)
Formula
a(n) ~ 10^n. - Charles R Greathouse IV, May 21 2014