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

Author

Lekraj Beedassy, Apr 15 2009

Keywords

• nonn
• base

Links

• Hiroaki Yamanouchi, Table of n, a(n) for n = 1..13117

Crossrefs

Cf. A050288, A050290.

Programs

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

Extensions

Missing terms a(2)-a(6) and a(15)-a(20) added by Hiroaki Yamanouchi, Oct 06 2014