OFFSET
0,3
MATHEMATICA
Table[Max[CoefficientList[Product[(1 - x^k)^2, {k, 1, n}], x]], {n, 0, 43}]
PROG
(PARI) a(n) = vecmax(Vec(prod(k=1, n, (1-x^k)^2))); \\ Michel Marcus, Jan 30 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 29 2024
STATUS
approved