A260128 Primes having only {2, 3, 9} as digits.
2, 3, 23, 29, 223, 229, 233, 239, 293, 929, 2239, 2293, 2333, 2339, 2393, 2399, 2939, 2999, 3229, 3299, 3323, 3329, 3923, 3929, 9239, 9293, 9323, 9923, 9929, 22229, 22993, 23293, 23333, 23339, 23399, 23929, 23993, 29333, 29339, 29399, 32233, 32299, 32323
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(300000) | Set(Intseq(p)) subset [2, 3, 9]];
-
Mathematica
Select[Prime[Range[4 10^3]], Complement[IntegerDigits[#], {2, 3, 9}]=={} &] Select[FromDigits/@Flatten[Table[Tuples[{2,3,9},n],{n,5}],1],PrimeQ] (* Harvey P. Dale, Apr 15 2025 *)
Comments