A260126 Primes having only {2, 3, 6} as digits.
2, 3, 23, 223, 233, 263, 2333, 2633, 2663, 3323, 3623, 6263, 6323, 23333, 23623, 23633, 23663, 26263, 26633, 32233, 32323, 32363, 32633, 33223, 33623, 36263, 62233, 62323, 62633, 222323, 223633, 226663, 232333, 232363, 232633, 232663, 233323, 233663, 236323
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(300000) | Set(Intseq(p)) subset [2,3,6]];
-
Mathematica
Select[Prime[Range[3 10^4]], Complement[IntegerDigits[#], {2, 3, 6}]=={} &]