A306703 Expansion of Sum_{k>=0} x^k / Product_{j=1..k} (1 + x^j)^j.

1, 1, 0, 1, -2, 1, -2, 1, -4, 7, -5, 7, -7, 16, -13, 16, -33, 38, -39, 31, -75, 79, -92, 118, -139, 201, -230, 269, -264, 494, -476, 523, -780, 886, -1095, 1261, -1533, 1857, -2593, 2197, -3367, 4256, -4240, 5816, -6484, 7985, -9800, 11051, -12561, 17530, -17516

Offset: 0

Author

Ilya Gutkovskiy, Mar 05 2019

Keywords

• sign

Crossrefs

Cf. A081362, A206100.

Programs

Mathematica

nmax = 50; CoefficientList[Series[Sum[x^k/Product[(1 + x^j)^j, {j, 1, k}], {k, 0, nmax}], {x, 0, nmax}], x]