Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Sep 08 2022 08:46:13
%S 2,11,41,211,241,421,2111,2141,2221,2411,2441,4111,4211,4241,4421,
%T 4441,11411,12211,12241,12421,14221,14411,21121,21211,21221,22111,
%U 22441,24121,24421,41141,41221,41411,42221,44111,44221,111121,111211,112111,112121,112241
%N Primes that contain only digits in {1, 2, 4}.
%C A020450 and A020452 are subsequences.
%C All terms but the first one end with a digit "1". - _M. F. Hasler_, Jul 26 2015
%H <a href="/index/Pri#PrimesWithDigits">Index to entries about primes with digits in a given set</a>.
%t Select[Prime[Range[3 10^4]], Complement[IntegerDigits[#], {1, 4, 2}]=={} &]
%o (Magma) [p: p in PrimesUpTo(4*10^5) | Set(Intseq(p)) subset [1, 4, 2]];
%o (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
%Y Cf. similar sequences listed in A260266.
%Y Cf. A020450, A020452.
%K nonn,easy,base
%O 1,1
%A _Vincenzo Librandi_, Jul 23 2015