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,3

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A118908 A153060 A139244 * A090115 A051999 A048731

Adjacent sequences: A369724 A369725 A369726 * A369728 A369729 A369730

Keyword

nonn

Author

Ilya Gutkovskiy, Jan 30 2024

Status

approved