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

1, 1, 0, 1, -2, 1, -1, 1, -7, 10, 0, 4, -31, 31, 8, 53, -163, 108, -74, 212, -450, 732, -353, 467, -3412, 3614, -145, 5613, -11910, 8816, -13354, 21558, -44624, 77598, -43860, 67721, -255791, 261710, -127452, 529648, -1118393, 997295, -1206756, 2184148, -3314638, 5934992, -5394856

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Cf. A081362, A193196.

Sequence in context: A011127 A172970 A172971 * A240581 A329043 A329042

Adjacent sequences: A306699 A306700 A306701 * A306703 A306704 A306705

Keyword

sign

Author

Ilya Gutkovskiy, Mar 05 2019

Status

approved