OFFSET
1,1
COMMENTS
Conjecture: Sequence is finite.
MATHEMATICA
Select[Prime[Range[8611*10^5]], AllTrue[#+{2, 6, 8}, PrimeQ] && PalindromeQ[ #]&] (* Requires Mathematica version 10 or later *) (* The program will take a long time to run *) (* Harvey P. Dale, Mar 11 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 28 2003
EXTENSIONS
More terms from David Wasserman, Jul 28 2005
STATUS
approved