A260267 Primes having only {1, 2, 4} as digits.
2, 11, 41, 211, 241, 421, 2111, 2141, 2221, 2411, 2441, 4111, 4211, 4241, 4421, 4441, 11411, 12211, 12241, 12421, 14221, 14411, 21121, 21211, 21221, 22111, 22441, 24121, 24421, 41141, 41221, 41411, 42221, 44111, 44221, 111121, 111211, 112111, 112121, 112241
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(4*10^5) | Set(Intseq(p)) subset [1, 4, 2]];
-
Mathematica
Select[Prime[Range[3 10^4]], Complement[IntegerDigits[#], {1, 4, 2}]=={} &]
-
PARI
A260267(n=50,show=0)={for(d=1,1e9,my(t,u=vector(d,i,10^(d-i))~);forvec(v=vector(d,i,[0,if(i
M. F. Hasler, Jul 25 2015
Comments