OFFSET
0,5
MATHEMATICA
Table[Max[Abs[CoefficientList[Product[(1 - x^(k (k + 1)/2)), {k, 1, n}], x]]], {n, 0, 55}]
PROG
(PARI) a(n) = vecmax(apply(abs, Vec(prod(i=1, n, (1-x^(i*(i+1)/2)))))); \\ Michel Marcus, Feb 07 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 07 2024
STATUS
approved