|
%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
|
