%I #12 Mar 11 2019 15:39:47

%S 5,11,101,191,16061,1748471,179868971,11027472011,13160106131,

%T 15130003151,15843234851,16420302461,16782228761,16861316861,

%U 17060706071,17374347371,18491419481,18697979681,19497279491

%N Palindromes in A007530.

%C Conjecture: Sequence is finite.

%t 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 *)

%Y Cf. A007530.

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, Sep 28 2003

%E More terms from _David Wasserman_, Jul 28 2005