login
Numbers that are the sum of two palindromic primes (A002385).
1

%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