OFFSET
0,6
MATHEMATICA
Table[Max[CoefficientList[Product[(1 - x^(k (k + 1)/2)), {k, 1, n}], x]], {n, 0, 55}]
PROG
(PARI) a(n) = vecmax(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