OFFSET
1,1
COMMENTS
All terms but the first one end with a digit "1". - M. F. Hasler, Jul 26 2015
MATHEMATICA
Select[Prime[Range[3 10^4]], Complement[IntegerDigits[#], {1, 4, 2}]=={} &]
PROG
(Magma) [p: p in PrimesUpTo(4*10^5) | Set(Intseq(p)) subset [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<d, 2, d==1)]), ispseudoprime(t=vector(d, i, 1<<v[i])*u)||next; show&&print1(t", "); n--||return(t)))} \\ M. F. Hasler, Jul 25 2015
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Vincenzo Librandi, Jul 23 2015
STATUS
approved