OFFSET
1,1
LINKS
Hiroaki Yamanouchi, Table of n, a(n) for n = 1..13117
PROG
(PARI) remz(d) = {nd = []; for (i=1, #d, if (d[i] != 0, nd = concat(nd, d[i]))); subst(Pol(nd), x, 10); }
isok(n) = isprime(n) && (d=digits(n)) && (#vecsort(d, , 8)==10) && isprime(remz(d));
lista() = forprime(n=10123465789, , if (isok(n), print1(n, ", "))); \\ Michel Marcus, Oct 06 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 15 2009
EXTENSIONS
Missing terms a(2)-a(6) and a(15)-a(20) added by Hiroaki Yamanouchi, Oct 06 2014
STATUS
approved