A369726 Maximal coefficient of (1 - x) * (1 - x^2)^2 * (1 - x^3)^3 * ... * (1 - x^n)^n.
1, 1, 2, 5, 30, 289, 5170, 155768, 7947236, 695357704, 105014923458, 26823702973095, 12124672181643014, 9302296598744837059, 12142590791028740988194, 26874517085010633423659616, 100413718348008543669377307304, 634527279123990475683817934978079
Offset: 0
Keywords
Programs
-
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}] -
PARI
a(n) = vecmax(Vec(prod(k=1, n, (1-x^k)^k))); \\ Michel Marcus, Jan 30 2024
Comments