%I #14 Mar 24 2015 06:43:11
%S 101,103,107,109,307,401,503,509,601,607,701,709,809,907,1009,1013,
%T 1031,1039,1049,1051,1063,1091,1093,1097,1103,1301,1307,1409,1607,
%U 1709,1801,1901,1907,2003,2011,2027,2029,2039,2063,2069,2081,2083,2203,2207,2309,2609,2707
%N Naught-y primes (A056709) that after removing all zeros become zeroless primes (A038618).
%C Subsequence of A256227.
%H Charles R Greathouse IV, <a href="/A256186/b256186.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1)=101=A056709(1) => 11=A038618(5), a(15)=1009=A056709(16) => 19=A038618(8).
%t ss = {}; Do[id = IntegerDigits[p = Prime[k]]; If[Min[id < 1 && PrimeQ[FromDigits[Delete[id, Position[id, 0]]]], ss = {ss, p}], {k, 1, 500}]; Flatten[ss] (* Seidov *)
%t Select[Prime[Range[500]], DigitCount[#, 10, 0] > 0 && PrimeQ[FromDigits[DeleteCases[IntegerDigits[#], 0]]] &] (* _Alonso del Arte_, Mar 22 2015 *)
%o (PARI) is(n)=my(d=digits(n)); isprime(n) && #d>#(d=select(x->x,d)) && isprime(fromdigits(d)) \\ _Charles R Greathouse IV_, Mar 19 2015
%Y Cf. A056709 Naught-y primes, primes with noughts (or zeros), A038618 Primes not containing digit '0', a.k.a. zeroless primes.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 19 2015