OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[250]], Length[Intersection[IntegerDigits[ # ], {4, 9}]] > 0 &] (* Stefan Steinerberger, Jan 03 2008 *)
Select[Prime[Range[250]], Total[DigitCount[#, 10, {4, 9}]]>0&] (* Harvey P. Dale, Jun 04 2023 *)
PROG
(Magma) [p:p in PrimesUpTo(650)| 4 in Intseq(p) or 9 in Intseq(p)]; // Marius A. Burtea, Feb 11 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Jan 02 2008
EXTENSIONS
Corrected and extended by Stefan Steinerberger, Jan 03 2008
STATUS
approved