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,5

Links

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

Mathematica

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

Crossrefs

Cf. A081362, A206100.

Sequence in context: A106380 A076198 A032021 * A295686 A246996 A260612

Adjacent sequences: A306700 A306701 A306702 * A306704 A306705 A306706

Keyword

sign

Author

Ilya Gutkovskiy, Mar 05 2019

Status

approved