The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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