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
KEYWORD
sign
AUTHOR
Seiichi Manyama, Jan 18 2022
STATUS
approved