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

%I #11 Jan 30 2024 11:04:19

%S 1,1,4,15,226,2630,95420,4177117,371458250,49558386762,11496848193144,

%T 4055873729544890,2321900139799896688,2052844416093203835934,

%U 2864423943667784141723196,6181759121650271558049171285,20773297302068160010868731066114

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

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

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

%Y Cf. A008705, A086376, A369710, A369711, A369725.

%K nonn

%O 0,3

%A _Ilya Gutkovskiy_, Jan 30 2024