A369710 - OEIS

%I #8 Jan 30 2024 11:03:54

%S 1,1,4,3,10,6,20,12,34,24,64,52,116,103,208,223,410,470,808,992,1620,

%T 2120,3352,4494,6980,9584,14680,20400,31128,43774,66288,93968,141654,

%U 201766,303716,433746,652612,936334,1404920,2021344,3029564,4364300,6541872,9437054

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

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

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

%Y Cf. A002107, A047653, A086376.

%K nonn

%O 0,3

%A _Ilya Gutkovskiy_, Jan 29 2024