login
A386177
Primes having only {3, 4, 8, 9} as digits.
1
3, 43, 83, 89, 349, 383, 389, 433, 439, 443, 449, 499, 839, 883, 983, 3343, 3389, 3433, 3449, 3499, 3833, 3889, 3943, 3989, 4339, 4349, 4483, 4493, 4889, 4933, 4943, 4993, 4999, 8389, 8443, 8839, 8849, 8893, 8933, 8999, 9343, 9349, 9433, 9439, 9833, 9839, 9883
OFFSET
1,1
MATHEMATICA
Flatten[Table[Select[FromDigits /@ Tuples[{3, 4, 8, 9}, n], PrimeQ], {n, 7}]]
PROG
(Magma) [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [3, 4, 8, 9]];
(Python) print(list(islice(primes_with("3489"), 41))) # uses function/imports in A385776
(PARI) primes_with(, 1, [3, 4, 8, 9]) \\ uses function in A385776
CROSSREFS
Supersequence of A199348, A199349, A385792, A385796.
Sequence in context: A185632 A006033 A246994 * A142184 A386174 A386059
KEYWORD
nonn,base,easy
AUTHOR
Jason Bard, Jul 18 2025
STATUS
approved