A199345 Primes having only the (decimal) digits 3, 4 and 5.

3, 5, 43, 53, 353, 433, 443, 3343, 3433, 3533, 5333, 5443, 33343, 33353, 33533, 34543, 35353, 35533, 35543, 43543, 44453, 44533, 44543, 45343, 45433, 45533, 45553, 53353, 53453, 54443, 55333, 55343, 333433, 333533, 334333, 335453, 343333, 343433, 343543, 344353, 344453, 344543, 345533, 353333, 353443, 353453, 354353, 354443

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Join[{3, 5}, Select[Flatten[Table[FromDigits/@(Join[#, {3}]&/@ Tuples[ {3, 4, 5}, n]), {n, 5}]], PrimeQ]] (* Harvey P. Dale, Aug 31 2015 *)

Prog

(PARI) a(n, list=0, L=[3, 4, 5], reqpal=0)={my(t); for(d=1, 1e9, u=vector(d, i, 10^(d-i))~; forvec(v=vector(d, i, [1+(i==1&!L[1]), #L]), isprime(t=vector(d, i, L[v[i]])*u) || next; reqpal & !isprime(A004086(t)) & next; list & print1(t", "); n--|return(t)))}
(Magma) [p: p in PrimesUpTo(4*10^5) | Set(Intseq(p)) subset [3..5]]; // Bruno Berselli, Nov 07 2011

Crossrefs

Cf. A020449 - A020472, A199325 - A199329.

Sequence in context: A219018 A191088 A191089 * A062633 A240559 A361904

Adjacent sequences: A199342 A199343 A199344 * A199346 A199347 A199348

Keyword

nonn,base

Author

M. F. Hasler, Nov 05 2011

Status

approved