OFFSET
1,1
COMMENTS
All terms start and end with the digit '1'. This fact is used in the given PARI program.
PROG
(PARI) a(n=50, list=0, L=[0, 1, 6])={ for(d=1, 1e9, my(t, u=vector(d-1, i, 10^(d-i))~, o=10^d+1); forvec(v=vector(#u, i, [1, #L]), isprime(t=o+vector(#u, i, L[v[i]])*u) || next; isprime(A004086(t)) || next; list & print1(t", "); n-- || return(t)))} \\ M. F. Hasler, Nov 07 2011
(Magma) [p: p in PrimesUpTo(10^8) | Set(Intseq(p)) subset [0, 1, 6] and IsPrime(Seqint(Reverse(Intseq(p))))]; // Bruno Berselli, Nov 07 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Nov 06 2011
STATUS
approved