A133765 Primes that contain the digit 4 or the digit 9.

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

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

Cf. A000040, A109276.

Sequence in context: A151360 A329106 A109276 * A158846 A157026 A240724

Adjacent sequences: A133762 A133763 A133764 * A133766 A133767 A133768

Keyword

nonn,base

Author

Parthasarathy Nambi, Jan 02 2008

Extensions

Corrected and extended by Stefan Steinerberger, Jan 03 2008

Status

approved