A260269 Primes having only {1, 4, 6} as digits.
11, 41, 61, 461, 641, 661, 4111, 4441, 6661, 11161, 11411, 14411, 14461, 16111, 16141, 16411, 16661, 41141, 41161, 41411, 41611, 41641, 44111, 44641, 46141, 46411, 46441, 61141, 61441, 64661, 66161, 111611, 111641, 114161, 114641, 114661, 116141, 116411
Offset: 1
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[p: p in PrimesUpTo(4*10^5) | Set(Intseq(p)) subset [1, 4, 6]];
-
Mathematica
Select[Prime[Range[3 10^4]], Complement[IntegerDigits[#], {1, 4, 6}]=={} &]
Comments