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

1, 1, -1, 1, 0, 0, -2, 2, 2, -1, -7, 5, 8, -4, -22, 23, 30, -32, -101, 102, 160, -81, -434, 288, 515, -249, -1393, 1542, 1756, -1950, -6694, 7040, 10192, -4724, -29594, 18851, 30282, -9298, -89627, 106068, 97255, -127909, -453650, 498939, 641627, -207845, -2026461

Offset

0,7

Links

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

Mathematica

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

Crossrefs

Cf. A053256, A318770.

Sequence in context: A086612 A128207 A340740 * A180958 A295854 A230630

Adjacent sequences: A306704 A306705 A306706 * A306708 A306709 A306710

Keyword

sign

Author

Ilya Gutkovskiy, Mar 05 2019

Status

approved