%I #4 Jun 03 2017 19:02:52
%S 4,5,6,7,8,9,10,12,13,14,16,18,22,103,104,106,108,112,133,134,136,138,
%T 142,153,154,156,158,162,183,184,186,188,192,193,194,196,198,202,232,
%U 252,262,282,292,302,312,315,316,318,320,322,324,332,342,355,356,358,360,362,364,372,375,376,378,380
%N Numbers that are the sum of two palindromic primes (A002385).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PalindromicPrime.html">Palindromic Prime</a>
%H <a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>
%t nmax = 380; f[x_] := Sum[Boole[PalindromeQ[k] && PrimeQ[k]] x^k, {k, 1, nmax}]^2; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]]
%Y Cf. A002113, A002385, A014091, A035137, A260254, A260255, A261906.
%K nonn,base
%O 1,1
%A _Ilya Gutkovskiy_, Jun 03 2017