login
A350587
Expansion of Product_{k>=1} (1-x^k/Product_{j=1..k} (1-x^j)).
0
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
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
KEYWORD
sign
AUTHOR
Seiichi Manyama, Jan 18 2022
STATUS
approved