OFFSET
1,1
LINKS
Ulrich Krug and Aurelien Herault, Table of n, a(n) for n = 1..83
MATHEMATICA
palQ[n_] := Reverse[x = IntegerDigits[n]] == x; Select[Prime[Range[25000]], palQ[# + Prime[#]] &] (* Jayanta Basu, Jun 24 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ulrich Krug (leuchtfeuer37(AT)gmx.de), Jan 22 2009, Mar 02 2009, Mar 04 2009
STATUS
approved