login
A133765
Primes that contain the digit 4 or the digit 9.
3
19, 29, 41, 43, 47, 59, 79, 89, 97, 109, 139, 149, 179, 191, 193, 197, 199, 229, 239, 241, 269, 293, 347, 349, 359, 379, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 509, 541, 547, 569, 593, 599, 619, 641, 643
OFFSET
1,1
LINKS
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
Sequence in context: A151360 A329106 A109276 * A158846 A157026 A240724
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Jan 02 2008
EXTENSIONS
Corrected and extended by Stefan Steinerberger, Jan 03 2008
STATUS
approved