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