A260378 Primes having only {0, 3, 7} as digits.
3, 7, 37, 73, 307, 337, 373, 733, 773, 3037, 3307, 3373, 3733, 7307, 7333, 7703, 30307, 30703, 30707, 30773, 33037, 33073, 33377, 33703, 33773, 37003, 37307, 37337, 70003, 70373, 73037, 73303, 77003, 77377, 77773, 300007, 300073, 300733, 303007, 303073, 303307
Offset: 1
Links
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(5*10^5) | Set(Intseq(p)) subset [0, 3, 7]];
-
Mathematica
Select[Prime[Range[4 10^4]], Complement[IntegerDigits[#],{0, 3, 7}]=={} &]
Comments