A260266 Primes that contain only digits in {0, 1, 4}.

11, 41, 101, 401, 4001, 4111, 4441, 10111, 10141, 11411, 14011, 14401, 14411, 40111, 41011, 41141, 41411, 44041, 44101, 44111, 100411, 101111, 101141, 101411, 110441, 114001, 114041, 140111, 140401, 140411, 141041, 141101, 400441, 401101, 401411, 404011

Offset

1,1

Comments

A020449 and A020452 are subsequences.

All terms end with a digit "1". - M. F. Hasler, Jul 26 2015

Links

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Mathematica

Select[Prime[Range[4 10^4]], Complement[IntegerDigits[#], {1, 4, 0}]=={} &]

Prog

(Magma) [p: p in PrimesUpTo(5*10^5) | Set(Intseq(p)) subset [1, 4, 0]];
(PARI) A260266(n=50, show=0)={for(d=1, 1e9, my(t, u=vector(d, i, 10^(d-i))~); forvec(v=vector(d, i, [i==1||i==d, 1+(i<d)]), ispseudoprime(t=vector(d, i, v[i]^2)*u)||next; show&&print1(t", "); n--||return(t)))} \\ M. F. Hasler, Jul 25 2015

Crossrefs

Primes that contain only digits among {1,4,k}: this sequence (k=0), A260267 (k=2), A199341 (k=3), A260268 (k=5), A260269 (k=6), A079651 (k=7), A260270 (k=8), A260271 (k=9).

Cf. A020449, A020452.

Cf. A020450 - A020472, A036953, A260044, A260267 - A260271, A199325 - A199329, A061247, A199340 - A199349.

Sequence in context: A233434 A261538 A066595 * A195117 A027086 A075985

Adjacent sequences: A260263 A260264 A260265 * A260267 A260268 A260269

Keyword

nonn,easy,base

Author

Vincenzo Librandi, Jul 22 2015

Status

approved