OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..176 from Vincenzo Librandi)
MATHEMATICA
Do[f=(Prime[k] - 2); If[PrimeQ[f] && FromDigits[Reverse[IntegerDigits[f]]]==f, Print[f]], {k, 1, 1000000}] (* Vincenzo Librandi, Jan 09 2018 *)
Select[Partition[Prime[Range[100000]], 2, 1], #[[2]]-#[[1]]==2 && PalindromeQ[ #[[1]]]&][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 30 2018 *)
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