login
A159569
Pandigital primes that become zeroless pandigital primes when the digit 0 is deleted.
1
10123465789, 10123685749, 10123746859, 10123854679, 10123945687, 10123956487, 10124356789, 10124378569, 10124563987, 10124568793, 10124683759, 10124695783, 10124736859, 10124763589, 10124785639, 10124867539, 10124867593, 10124935687, 10125367849, 10125368749
OFFSET
1,1
LINKS
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
Sequence in context: A225298 A050288 A173051 * A159292 A144648 A098143
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