A369728 - OEIS

%I #12 Feb 05 2024 03:18:07

%S 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,

%T 103,129,198,225,295,363,286,433,815,629,796,1236,1363,1258,1723,2143,

%U 3873,4469,6409,6019,9724,12844,18153,20914,23120,28173,49135,46042,78112

%N Maximal coefficient of (1 - x) * (1 - x^4) * (1 - x^9) * ... * (1 - x^(n^2)).

%H Vaclav Kotesovec, <a href="/A369728/b369728.txt">Table of n, a(n) for n = 0..1000</a>

%t Table[Max[CoefficientList[Product[(1 - x^(k^2)), {k, 1, n}], x]], {n, 0, 55}]

%o (PARI) a(n) = vecmax(Vec(prod(k=1, n, (1-x^k^2)))); \\ _Michel Marcus_, Jan 30 2024

%Y Cf. A086376, A160235, A276516.

%K nonn

%O 0,8

%A _Ilya Gutkovskiy_, Jan 30 2024