A260891 Primes having only {1, 6, 7} as digits.
7, 11, 17, 61, 67, 71, 167, 617, 661, 677, 761, 1117, 1171, 1667, 1777, 6661, 6761, 7177, 7717, 11117, 11161, 11171, 11177, 11617, 11677, 11717, 11777, 16111, 16661, 17117, 17167, 17761, 61667, 61717, 66161, 66617, 67777, 71161, 71167, 71171, 71671
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(2*10^5) | Set(Intseq(p)) subset [1, 6, 7]];
-
Mathematica
Select[Prime[Range[2 10^4]], Complement[IntegerDigits[#], {1, 6, 7}] == {} &]
Comments