A386177 Primes having only {3, 4, 8, 9} as digits.
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
Links
Programs
-
Magma
[p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [3, 4, 8, 9]];
-
Mathematica
Flatten[Table[Select[FromDigits /@ Tuples[{3, 4, 8, 9}, n], PrimeQ], {n, 7}]]
-
PARI
primes_with(, 1, [3, 4, 8, 9]) \\ uses function in A385776
-
Python
print(list(islice(primes_with("3489"), 41))) # uses function/imports in A385776