OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Palindromic Prime
MATHEMATICA
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}]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Jun 03 2017
STATUS
approved