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

1, -1, -2, -2, -2, 1, 4, 13, 22, 36, 47, 54, 37, -11, -129, -346, -709, -1257, -2023, -2979, -4014, -4836, -4851, -3041, 2310, 13785, 35186, 71598, 129624, 216732, 340488, 505769, 710775, 938823, 1146714, 1244936, 1070745, 347604, -1366923, -4751316

Offset

0,3

Links

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

Mathematica

a[n_] := SeriesCoefficient[Product[1 - x^k/Product[1 - x^j, {j, 1, k}], {k, 1, n}], {x, 0, n}]; Table[a[n], {n, 0, 39}] (* Robert P. P. McKone, Jan 18 2022 *)

Prog

(PARI) my(N=40, x='x+O('x^N)); Vec(prod(k=1, N, 1-x^k/prod(j=1, k, 1-x^j)))

Crossrefs

Convolution inverse of A141199.

Sequence in context: A131308 A261360 A372014 * A184242 A307739 A109978

Adjacent sequences: A350584 A350585 A350586 * A350588 A350589 A350590

Keyword

sign

Author

Seiichi Manyama, Jan 18 2022

Status

approved