OFFSET
0,6
LINKS
Eric Weisstein's World of Mathematics, Palindromic Prime
FORMULA
G.f.: 1/(1 - Sum_{k>=1} x^A002385(k)).
EXAMPLE
a(7) = 6 because we have [7], [5, 2], [3, 2, 2], [2, 5], [2, 3, 2] and [2, 2, 3].
MATHEMATICA
nmax = 45; CoefficientList[Series[1/(1 - Sum[Boole[PalindromeQ[k] && PrimeQ[k]] x^k, {k, 1, nmax}]), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, May 17 2017
STATUS
approved