%I #8 Feb 07 2024 11:52:37
%S 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,
%T 103,129,198,225,295,363,286,433,815,629,796,1236,1363,1258,1723,2791,
%U 3873,5244,6409,6236,9724,13800,18153,22993,23120,28173,49135,46042
%N Maximum of the absolute value of the coefficients of (1 - x) * (1 - x^4) * (1 - x^9) * ... * (1 - x^(n^2)).
%t Table[Max[Abs[CoefficientList[Product[(1 - x^(k^2)), {k, 1, n}], x]]], {n, 0, 54}]
%o (PARI) a(n) = vecmax(apply(abs, Vec(prod(i=1, n, (1-x^(i^2)))))); \\ _Michel Marcus_, Feb 07 2024
%Y Cf. A000290, A160089, A160235, A276516, A369728.
%K nonn
%O 0,8
%A _Ilya Gutkovskiy_, Feb 07 2024