A386183 Primes having only {3, 5, 8, 9} as digits.
3, 5, 53, 59, 83, 89, 353, 359, 383, 389, 593, 599, 839, 853, 859, 883, 953, 983, 3359, 3389, 3533, 3539, 3559, 3583, 3593, 3833, 3853, 3889, 3989, 5333, 5393, 5399, 5839, 5939, 5953, 8353, 8389, 8539, 8599, 8839, 8893, 8933, 8999, 9533, 9539, 9833, 9839, 9859
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [3, 5, 8, 9]];
-
Mathematica
Flatten[Table[Select[FromDigits /@ Tuples[{3, 5, 8, 9}, n], PrimeQ], {n, 7}]]
-
PARI
primes_with(, 1, [3, 5, 8, 9]) \\ uses function in A385776
-
Python
print(list(islice(primes_with("3589"), 41))) # uses function/imports in A385776