A369727 Maximal coefficient of ( (1 - x) * (1 - x^2) * (1 - x^3) * ... * (1 - x^n) )^n.
1, 1, 4, 15, 226, 2630, 95420, 4177117, 371458250, 49558386762, 11496848193144, 4055873729544890, 2321900139799896688, 2052844416093203835934, 2864423943667784141723196, 6181759121650271558049171285, 20773297302068160010868731066114
Offset: 0
Keywords
Programs
-
Mathematica
Table[Max[CoefficientList[Product[(1 - x^k)^n, {k, 1, n}], x]], {n, 0, 16}] -
PARI
a(n) = vecmax(Vec(prod(k=1, n, (1-x^k))^n)); \\ Michel Marcus, Jan 30 2024