OFFSET
0,3
MAPLE
a:= n-> max(coeffs(expand(mul((1-x^k)^k, k=1..n)))):
seq(a(n), n=0..17); # Alois P. Heinz, Jan 30 2024
MATHEMATICA
Table[Max[CoefficientList[Product[(1 - x^k)^k, {k, 1, n}], x]], {n, 0, 17}]
PROG
(PARI) a(n) = vecmax(Vec(prod(k=1, n, (1-x^k)^k))); \\ Michel Marcus, Jan 30 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 30 2024
STATUS
approved