A260227 Primes having only {3, 5, 9} as digits.
3, 5, 53, 59, 353, 359, 593, 599, 953, 3359, 3533, 3539, 3559, 3593, 5333, 5393, 5399, 5939, 5953, 9533, 9539, 33353, 33359, 33533, 33599, 35339, 35353, 35393, 35533, 35593, 35933, 35993, 35999, 39359, 39953, 53353, 53359, 53593, 53939, 53959, 53993
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(2*10^5) | Set(Intseq(p)) subset [3, 5, 9]];
-
Mathematica
Select[Prime[Range[2 10^4]], Complement[IntegerDigits[#], {3, 5, 9}]=={} &] Select[Table[FromDigits/@Tuples[{3,5,9},n],{n,5}]//Flatten,PrimeQ] (* Harvey P. Dale, Sep 07 2018 *)
Comments