cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A260267 Primes having only {1, 2, 4} as digits.

This page as a plain text file.
%I A260267 #21 Jul 14 2025 17:31:58
%S A260267 2,11,41,211,241,421,2111,2141,2221,2411,2441,4111,4211,4241,4421,
%T A260267 4441,11411,12211,12241,12421,14221,14411,21121,21211,21221,22111,
%U A260267 22441,24121,24421,41141,41221,41411,42221,44111,44221,111121,111211,112111,112121,112241
%N A260267 Primes having only {1, 2, 4} as digits.
%C A260267 A020450 and A020452 are subsequences.
%C A260267 All terms but the first one end with a digit "1". - _M. F. Hasler_, Jul 26 2015
%H A260267 Jason Bard, <a href="/A260267/b260267.txt">Table of n, a(n) for n = 1..10000</a>
%H A260267 <a href="/index/Pri#PrimesWithDigits">Index to entries about primes with digits in a given set</a>.
%t A260267 Select[Prime[Range[3 10^4]], Complement[IntegerDigits[#], {1, 4, 2}]=={} &]
%o A260267 (Magma) [p: p in PrimesUpTo(4*10^5) | Set(Intseq(p)) subset [1, 4, 2]];
%o A260267 (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 A260267 Cf. similar sequences listed in A260266.
%Y A260267 Cf. A020450, A020452.
%K A260267 nonn,easy,base
%O A260267 1,1
%A A260267 _Vincenzo Librandi_, Jul 23 2015