A260892 Primes having only {1, 7, 8} as digits.
7, 11, 17, 71, 181, 787, 811, 877, 881, 887, 1117, 1171, 1181, 1187, 1777, 1787, 1811, 1871, 1877, 7177, 7187, 7717, 7817, 7877, 8111, 8117, 8171, 8887, 11117, 11171, 11177, 11717, 11777, 11887, 17117, 17881, 18181, 18787, 71171, 71711, 71777, 71881, 71887
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(2*10^5) | Set(Intseq(p)) subset [1, 7, 8]];
-
Mathematica
Select[Prime[Range[2 10^5]], Complement[IntegerDigits[#], {1, 7, 8}] == {} &]
Comments