OFFSET
1,1
COMMENTS
Obviously all primes with just odd digits are members of this sequence.
EXAMPLE
23 is a member because if the digit 2 is removed the resulting number becomes 3 which is a prime.
MATHEMATICA
Select[Prime@ Range@ 100, PrimeQ[ FromDigits[ Select[ IntegerDigits@#, OddQ]]] &]
PROG
(PARI) isok(p) = isprime(p) && isprime(fromdigits(select(x->(x % 2), digits(p)))); \\ Michel Marcus, Jun 21 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov and Robert G. Wilson v, Jun 20 2018
STATUS
approved