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