OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]
Select[Transpose[Select[Partition[Prime[Range[500000]], 2, 1], Last[#]-First[#]==2&]][[2]], palQ] (* Harvey P. Dale, Feb 25 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 09 2003
EXTENSIONS
Corrected and extended by Ray Chandler, May 23 2003
STATUS
approved