OFFSET
0,50
LINKS
FORMULA
EXAMPLE
a(49) = 2 because we have [49] and [36, 9, 4].
MATHEMATICA
nmax = 90; CoefficientList[Series[(1/2) (Product[(1 + x^(k^2)), {k, 1, Floor[nmax^(1/2)] + 1}] - Product[(1 - x^(k^2)), {k, 1, Floor[nmax^(1/2)] + 1}]), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 01 2020
STATUS
approved