A369986 Maximum of the absolute value of the coefficients of (1 - x) * (1 - x^4) * (1 - x^9) * ... * (1 - x^(n^2)).
1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 4, 6, 7, 8, 11, 14, 12, 14, 20, 20, 28, 40, 54, 63, 103, 100, 103, 129, 198, 225, 295, 363, 286, 433, 815, 629, 796, 1236, 1363, 1258, 1723, 2791, 3873, 5244, 6409, 6236, 9724, 13800, 18153, 22993, 23120, 28173, 49135, 46042
Offset: 0
Keywords
Programs
-
Mathematica
Table[Max[Abs[CoefficientList[Product[(1 - x^(k^2)), {k, 1, n}], x]]], {n, 0, 54}] -
PARI
a(n) = vecmax(apply(abs, Vec(prod(i=1, n, (1-x^(i^2)))))); \\ Michel Marcus, Feb 07 2024