OFFSET
1,1
COMMENTS
Consists of primes which have all odd digits except for a single digit 2 with any number of zeros before the 2 and none after it.
EXAMPLE
251 is a member of this sequence because when all the odd digits are removed, the single digit left is 2.
MATHEMATICA
Select[Prime@ Range@ 380, PrimeQ[ FromDigits[ Select[ IntegerDigits@#, EvenQ]]] &]
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