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

1, 1, -1, 1, 0, 0, -2, 2, 1, 0, -4, 2, 0, 3, -3, 5, -6, -1, -7, 16, -3, 7, -19, 14, -14, 11, -23, 32, -16, 37, -38, 32, -59, 20, -47, 101, -40, 70, -122, 79, -87, 147, -108, 119, -270, 116, -199, 414, -49, 353, -481, 129, -687, 428, -376, 1003, -409, 759, -1114

Offset

0,7

Links

Table of n, a(n) for n=0..58.

Mathematica

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

Crossrefs

Cf. A053256, A318771.

Sequence in context: A213980 A349373 A144912 * A145337 A171941 A071464

Adjacent sequences: A306705 A306706 A306707 * A306709 A306710 A306711

Keyword

sign

Author

Ilya Gutkovskiy, Mar 05 2019

Status

approved