OFFSET
1,1
EXAMPLE
32732237 is in the sequence because 32732237 is the 2016197-th prime number, 2016197 is prime, digits 2, 3 and 7 are primes, 32732237 -> 3 + 2 + 7 + 3 + 2 + 2 + 3 + 7 = 29 (is prime) -> 2 + 9 = 11 -> 1 + 1 = 2, 2 is prime and 73223723 is also prime.
MATHEMATICA
Select[Table[Prime[Prime[n]], {n, 1500000}], Complement[IntegerDigits[#1], {2, 3, 5, 7}] == {} && PrimeQ[#1 - 9 Floor[(#1 - 1)/9]] && PrimeQ[Total[IntegerDigits[#1]]] && PrimeQ[FromDigits[Reverse[IntegerDigits[#1]]]] & ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Nov 08 2016
STATUS
approved