%I #13 Mar 20 2023 12:31:51
%S 3,5,43,53,353,433,443,3343,3433,3533,5333,5443,33343,33353,33533,
%T 34543,35353,35533,35543,43543,44453,44533,44543,45343,45433,45533,
%U 45553,53353,53453,54443,55333,55343,333433,333533,334333,335453,343333,343433,343543,344353,344453,344543,345533,353333,353443,353453,354353,354443
%N Primes having only the (decimal) digits 3, 4 and 5.
%H Harvey P. Dale, <a href="/A199345/b199345.txt">Table of n, a(n) for n = 1..1000</a>
%t Join[{3,5},Select[Flatten[Table[FromDigits/@(Join[#,{3}]&/@ Tuples[ {3,4,5},n]),{n,5}]],PrimeQ]] (* _Harvey P. Dale_, Aug 31 2015 *)
%o (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)))}
%o (Magma) [p: p in PrimesUpTo(4*10^5) | Set(Intseq(p)) subset [3..5]]; // _Bruno Berselli_, Nov 07 2011
%Y Cf. A020449 - A020472, A199325 - A199329.
%K nonn,base
%O 1,1
%A _M. F. Hasler_, Nov 05 2011