A386172 Primes having only {3, 4, 5, 9} as digits.
3, 5, 43, 53, 59, 349, 353, 359, 433, 439, 443, 449, 499, 593, 599, 953, 3343, 3359, 3433, 3449, 3499, 3533, 3539, 3559, 3593, 3943, 4339, 4349, 4493, 4549, 4933, 4943, 4993, 4999, 5333, 5393, 5399, 5443, 5449, 5939, 5953, 9343, 9349, 9433, 9439, 9533, 9539, 9949
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [3, 4, 5, 9]];
-
Mathematica
Flatten[Table[Select[FromDigits /@ Tuples[{3, 4, 5, 9}, n], PrimeQ], {n, 7}]]
-
PARI
primes_with(, 1, [3, 4, 5, 9]) \\ uses function in A385776
-
Python
print(list(islice(primes_with("3459"), 41))) # uses function/imports in A385776