A159569 Pandigital primes that become zeroless pandigital primes when the digit 0 is deleted.

10123465789, 10123685749, 10123746859, 10123854679, 10123945687, 10123956487, 10124356789, 10124378569, 10124563987, 10124568793, 10124683759, 10124695783, 10124736859, 10124763589, 10124785639, 10124867539, 10124867593, 10124935687, 10125367849, 10125368749

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

Cf. A050288, A050290.

Sequence in context: A225298 A050288 A173051 * A159292 A144648 A098143

Adjacent sequences: A159566 A159567 A159568 * A159570 A159571 A159572

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