OFFSET
0,8
MATHEMATICA
Table[Max[Abs[CoefficientList[Product[(1 - x^(k^2)), {k, 1, n}], x]]], {n, 0, 54}]
PROG
(PARI) a(n) = vecmax(apply(abs, Vec(prod(i=1, n, (1-x^(i^2)))))); \\ Michel Marcus, Feb 07 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 07 2024
STATUS
approved