%I #16 Apr 20 2017 15:06:20
%S 5,8,222,434,696,828,2112,2992,4224,4554,6336,8448,8888,20202,21712,
%T 21812,22722,23832,25652,25952,26862,27672,29092,29292,41114,42024,
%U 42724,43334,43734,44544,47174,47974,60106,61116,62526,62626,63936,64146,64446,64946
%N Palindromes which are sums of two consecutive primes.
%H Harvey P. Dale and Chai Wah Wu, <a href="/A162571/b162571.txt">Table of n, a(n) for n = 1..10000</a>, first 1500 term from Harvey P. Dale.
%F A001043 INTERSECT A002113.
%e a(3) = 222= A002113(32) = A001043(29). a(4) = 434= A002113(53) = A001043(47).
%p isA002113 := proc(n) dgs := convert(n,base,10) ; for i from 1 to nops(dgs)/2 do if op(i,dgs) <> op(-i,dgs) then RETURN(false); end if; end do: true; end proc:
%p A001043 := proc(n) ithprime(n)+ithprime(n+1) ; end proc:
%p for n from 1 do ps := A001043(n) ; if isA002113(ps) then printf("%d,\n",ps) ; fi; end do: # _R. J. Mathar_, Aug 14 2009
%t palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]]; Select[Total/@ Partition[Prime[Range[5000]],2,1],palQ] (* _Harvey P. Dale_, Dec 30 2013 *)
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jul 06 2009
%E Keyword:base added by _R. J. Mathar_, Aug 14 2009