A339352 G.f.: Product_{k>=1} (1 + (-x)^(k^2) / (1 + x^k)).
1, -1, 1, -1, 2, -2, 1, -1, 2, -3, 2, -2, 4, -5, 4, -4, 7, -8, 7, -7, 9, -10, 8, -8, 11, -14, 13, -13, 16, -18, 17, -16, 19, -22, 23, -23, 26, -29, 29, -30, 34, -38, 38, -39, 44, -48, 47, -48, 56, -64, 65, -66, 75, -82, 80, -80, 90, -99, 98, -100, 114
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 60; CoefficientList[Series[Product[1 + (-x)^(k^2)/(1 + x^k), {k, 1, nmax}], {x, 0, nmax}], x]
Comments