OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..750
Patrick De Geest, World!Of Palindromic Primes
MATHEMATICA
palQ[n_] := Module[{idn = IntegerDigits[n + 1], len = Floor[IntegerLength[n + 1]/2]}, Take[idn, len] == Reverse[Take[idn, -len]]]; Select[Prime[Range[2800]], palQ] (* Harvey P. Dale, Nov 04 2011 *)
Select[Prime[Range[2800]], Reverse[x = IntegerDigits[# + 1]] == x &] (* Jayanta Basu, Jun 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved