login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A260267
Primes that contain only digits in {1, 2, 4}.
7
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,1
COMMENTS
A020450 and A020452 are subsequences.
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
Cf. similar sequences listed in A260266.
Sequence in context: A121244 A203574 A070778 * A128241 A258937 A347110
KEYWORD
nonn,easy,base
AUTHOR
Vincenzo Librandi, Jul 23 2015
STATUS
approved