OFFSET
1,1
LINKS
P. De Geest, World!Of Palindromic Primes
EXAMPLE
12149 = 919 + 929 + 10301.
MATHEMATICA
palQ[n_] := Reverse[x = IntegerDigits[n]] == x; t = Select[Prime[Range[7750]], palQ]; Select[Total /@ Partition[t, 3, 1], PrimeQ] (* Jayanta Basu, Jun 26 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved