login
A369725
Maximal coefficient of ( (1 + x) * (1 + x^2) * (1 + x^3) * ... * (1 + x^n) )^n.
1
1, 1, 4, 62, 4658, 1585430, 2319512420, 14225426190522, 361926393013029354, 37883831957216781279561, 16231015449888734994721650504, 28330316118212024049511095643949434, 200866780133770636272812495083578779133456, 5771133366532656054669819186294860881172794669798
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