OFFSET
0,7
FORMULA
EXAMPLE
a(9) = 3 because we have [9], [4, 4, 1] and [1, 1, 1, 1, 1, 1, 1, 1, 1].
MATHEMATICA
nmax = 60; CoefficientList[Series[(1/2) (Product[(1 - x^Prime[k])/(1 - x^k), {k, 1, nmax}] - Product[(1 + x^Prime[k])/(1 + x^k), {k, 1, nmax}]), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 02 2020
STATUS
approved