login
A369728
Maximal coefficient of (1 - x) * (1 - x^4) * (1 - x^9) * ... * (1 - x^(n^2)).
5
1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 4, 6, 7, 8, 11, 14, 12, 12, 20, 20, 28, 40, 54, 59, 103, 100, 103, 129, 198, 225, 295, 363, 286, 433, 815, 629, 796, 1236, 1363, 1258, 1723, 2143, 3873, 4469, 6409, 6019, 9724, 12844, 18153, 20914, 23120, 28173, 49135, 46042, 78112
OFFSET
0,8
LINKS
MATHEMATICA
Table[Max[CoefficientList[Product[(1 - x^(k^2)), {k, 1, n}], x]], {n, 0, 55}]
PROG
(PARI) a(n) = vecmax(Vec(prod(k=1, n, (1-x^k^2)))); \\ Michel Marcus, Jan 30 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 30 2024
STATUS
approved