|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|