login
A369726
Maximal coefficient of (1 - x) * (1 - x^2)^2 * (1 - x^3)^3 * ... * (1 - x^n)^n.
0
1, 1, 2, 5, 30, 289, 5170, 155768, 7947236, 695357704, 105014923458, 26823702973095, 12124672181643014, 9302296598744837059, 12142590791028740988194, 26874517085010633423659616, 100413718348008543669377307304, 634527279123990475683817934978079
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