A260893 Primes having only {1, 7, 9} as digits.
7, 11, 17, 19, 71, 79, 97, 179, 191, 197, 199, 719, 797, 911, 919, 971, 977, 991, 997, 1117, 1171, 1777, 1979, 1997, 1999, 7177, 7717, 7919, 9199, 9719, 9791, 11117, 11119, 11171, 11177, 11197, 11717, 11719, 11777, 11779, 11971, 17117, 17191, 17791, 17911
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(3*10^4) | Set(Intseq(p)) subset [1, 7, 9]];
-
Mathematica
Select[Prime[Range[3 10^3]], Complement[IntegerDigits[#], {1, 7, 9}] == {}&]
Comments