A261434 Primes having only {0, 3, 8} as digits.
3, 83, 383, 883, 3083, 3803, 3833, 8803, 30803, 33083, 38083, 38303, 38333, 38803, 38833, 80803, 80833, 83003, 83383, 83833, 88003, 88883, 303803, 308003, 308303, 308333, 308383, 330383, 333383, 333803, 338033, 338383, 338803, 380333, 380383, 380803, 383083
Offset: 1
Links
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(2*10^6) | Set(Intseq(p)) subset [0, 3, 8]];
-
Mathematica
Select[Prime[Range[2 10^5]], Complement[IntegerDigits[#], {0, 3, 8}] == {} &] Select[FromDigits/@Tuples[{0,3,8},6],PrimeQ] (* Harvey P. Dale, Jul 10 2017 *)
Comments