OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
EXAMPLE
353, a palindromic prime, is in the list since 3+5+3=11 is also a palindromic prime.
MATHEMATICA
palQ[n_]:=FromDigits[Reverse[IntegerDigits[n]]]==n; t={}; Do[If[palQ[p=Prime[n]] && palQ[td=Total[IntegerDigits[p]]] && PrimeQ[td], AppendTo[t, p]], {n, 6400000}]; t
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, May 13 2013
STATUS
approved