OFFSET
1,1
COMMENTS
All terms end in 3 and have a number of digits '4' that is not divisible by 3.
A020461 is a subsequence. - Vincenzo Librandi, Jul 29 2015
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Flatten[Table[FromDigits/@(Flatten[{#, 3}, 1]&/@Tuples[{3, 4, 6}, n]), {n, 0, 5}]], PrimeQ] (* Harvey P. Dale, Jan 01 2013 *)
Select[Prime[Range[10^5]], Complement[IntegerDigits[#], {3, 4, 6}]=={}&] (* Vincenzo Librandi, Jul 28 2015 *)
PROG
(PARI) a(n, list=0, L=[3, 4, 6], 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, 4, 6]]; // Vincenzo Librandi, Jul 29 2015
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
M. F. Hasler, Nov 05 2011
STATUS
approved