OFFSET
1,1
COMMENTS
Subsequence of A256227.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
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 *)
Select[Prime[Range[500]], DigitCount[#, 10, 0] > 0 && PrimeQ[FromDigits[DeleteCases[IntegerDigits[#], 0]]] &] (* Alonso del Arte, Mar 22 2015 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 19 2015
STATUS
approved