A307310 Expansion of Product_{k>=1} (1 - x^k/(1 - x)^k).

1, -1, -2, -3, -4, -4, -1, 9, 34, 89, 200, 409, 779, 1394, 2339, 3624, 4974, 5323, 1682, -13279, -56222, -163136, -408768, -943275, -2059237, -4310179, -8712425, -17072901, -32486302, -60006278, -107341413, -184979170, -303998680, -467127625, -642495990, -696247140

Offset

0,3

Comments

First differences of the binomial transform of A010815.

Convolution inverse of A218482.

Links

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

Maple

a:=series(mul((1-x^k/(1-x)^k), k=1..100), x=0, 35): seq(coeff(a, x, n), n=0..34); # Paolo P. Lava, Apr 02 2019

Mathematica

nmax = 35; CoefficientList[Series[Product[(1 - x^k/(1 - x)^k), {k, 1, nmax}], {x, 0, nmax}], x]

Crossrefs

Cf. A010815, A103446, A129519, A218482, A307311.

Sequence in context: A160386 A347860 A343835 * A339072 A174015 A014292

Adjacent sequences: A307307 A307308 A307309 * A307311 A307312 A307313

Keyword

sign

Author

Ilya Gutkovskiy, Apr 02 2019

Status

approved