OFFSET
1,1
MATHEMATICA
Select[Prime[Range[45*10^5, 152*10^5]], DigitCount[#, 10, 7]==7&] (* Harvey P. Dale, Dec 20 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, May 29 2010
STATUS
approved