A369710 Maximal coefficient of (1 - x)^2 * (1 - x^2)^2 * (1 - x^3)^2 * ... * (1 - x^n)^2.
1, 1, 4, 3, 10, 6, 20, 12, 34, 24, 64, 52, 116, 103, 208, 223, 410, 470, 808, 992, 1620, 2120, 3352, 4494, 6980, 9584, 14680, 20400, 31128, 43774, 66288, 93968, 141654, 201766, 303716, 433746, 652612, 936334, 1404920, 2021344, 3029564, 4364300, 6541872, 9437054
Offset: 0
Keywords
Programs
-
Mathematica
Table[Max[CoefficientList[Product[(1 - x^k)^2, {k, 1, n}], x]], {n, 0, 43}] -
PARI
a(n) = vecmax(Vec(prod(k=1, n, (1-x^k)^2))); \\ Michel Marcus, Jan 30 2024