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

1, 1, 4, 3, 10, 6, 20, 12, 34, 24, 64, 52, 116, 103, 208, 223, 410, 470, 808, 992, 1620, 2120, 3352, 4494, 6980, 9584, 14680, 20400, 31128, 43774, 66288, 93968, 141654, 201766, 303716, 433746, 652612, 936334, 1404920, 2021344, 3029564, 4364300, 6541872, 9437054

Offset

0,3

Links

Table of n, a(n) for n=0..43.

Mathematica

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

Prog

(PARI) a(n) = vecmax(Vec(prod(k=1, n, (1-x^k)^2))); \\ Michel Marcus, Jan 30 2024

Crossrefs

Cf. A002107, A047653, A086376.

Sequence in context: A242531 A275160 A363469 * A147756 A213768 A325997

Adjacent sequences: A369707 A369708 A369709 * A369711 A369712 A369713

Keyword

nonn

Author

Ilya Gutkovskiy, Jan 29 2024

Status

approved