%I #7 Oct 06 2014 09:15:46
%S 10123465789,10123685749,10123746859,10123854679,10123945687,
%T 10123956487,10124356789,10124378569,10124563987,10124568793,
%U 10124683759,10124695783,10124736859,10124763589,10124785639,10124867539,10124867593,10124935687,10125367849,10125368749
%N Pandigital primes that become zeroless pandigital primes when the digit 0 is deleted.
%H Hiroaki Yamanouchi, <a href="/A159569/b159569.txt">Table of n, a(n) for n = 1..13117</a>
%o (PARI) remz(d) = {nd = []; for (i=1, #d, if (d[i] != 0, nd = concat(nd, d[i]))); subst(Pol(nd), x, 10);}
%o isok(n) = isprime(n) && (d=digits(n)) && (#vecsort(d,,8)==10) && isprime(remz(d));
%o lista() = forprime(n=10123465789,, if (isok(n), print1(n, ", "))); \\ _Michel Marcus_, Oct 06 2014
%Y Cf. A050288, A050290.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Apr 15 2009
%E Missing terms a(2)-a(6) and a(15)-a(20) added by _Hiroaki Yamanouchi_, Oct 06 2014