A298601 Expansion of Product_{k>=2} (1 - x^(k^2)).
1, 0, 0, 0, -1, 0, 0, 0, 0, -1, 0, 0, 0, 1, 0, 0, -1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, -1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, -2, -1, 0, 1, 1, 1, 0, -1, 0, 1, 0, 0, 0, -1, 0, -1, 1, 0, 0, 1, -1, -1, 0, 0, 1, 1, 0, 0, -2, 0, 0, 1, 0, 0, -1, -1, 2, 1, 1, 0, -1, -1
Offset: 0
Keywords
Links
Programs
-
Mathematica
nmax = 92; CoefficientList[Series[Product[1 - x^k^2, {k, 2, Floor[Sqrt[nmax]] + 1}], {x, 0, nmax}], x]
Formula
G.f.: Product_{k>=2} (1 - x^(k^2)).
Comments