A260223 Primes having only {3, 5, 0} as digits.
3, 5, 53, 353, 503, 3533, 5003, 5303, 5333, 5503, 30553, 33053, 33353, 33503, 33533, 35053, 35353, 35533, 50033, 50053, 50333, 50503, 53003, 53353, 53503, 55333, 303053, 303553, 305033, 305353, 305533, 330053, 333503, 333533, 335033, 350003, 350033, 350503
Offset: 1
Links
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(600000) | Set(Intseq(p)) subset [3, 5, 0]];
-
Mathematica
Select[Prime[Range[4 10^4]], Complement[IntegerDigits[#], {3, 5, 0}]=={} &] Select[FromDigits/@Tuples[{0,3,5},6],PrimeQ] (* Harvey P. Dale, Jul 19 2019 *)
Comments