%I #13 Sep 06 2021 19:25:29
%S 5,8,232,282,666,20802,21912,22722,23832,60306,60606,61816,62526,
%T 63836,64746,65956,69896,2078702,2098902,2237322,2243422,2249422,
%U 2279722,2295922,2397932,2409042,2427242,2439342,2456542,2477742,2485842
%N Palindromes expressible as the sum of 2 consecutive palindromic primes.
%H P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%e 666 = 313 + 353; 60606 = 30203 + 30403.
%t palQ[n_] := Reverse[x = IntegerDigits[n]] == x; t = Select[Prime[Range[96000]], palQ]; Select[Total /@ Partition[t, 2, 1], palQ] (* _Jayanta Basu_, Jun 26 2013 *)
%t Select[Total/@Partition[Select[Prime[Range[100000]],PalindromeQ],2,1],PalindromeQ] (* _Harvey P. Dale_, Sep 06 2021 *)
%Y Cf. A002113, A002385, A046491.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1998
|