login
A369984
Maximum coefficient of (1 - x) * (1 - x^3) * (1 - x^6) * ... * (1 - x^(n*(n+1)/2)).
1
1, 1, 1, 1, 1, 2, 2, 3, 3, 5, 4, 5, 4, 8, 10, 9, 13, 16, 26, 36, 38, 51, 66, 48, 36, 49, 49, 94, 147, 152, 174, 120, 214, 268, 346, 580, 463, 598, 1024, 1217, 1521, 2473, 2417, 3340, 4795, 7086, 12643, 4808, 5569, 9373, 13083, 9644, 8762, 9516, 10702, 14483
OFFSET
0,6
MATHEMATICA
Table[Max[CoefficientList[Product[(1 - x^(k (k + 1)/2)), {k, 1, n}], x]], {n, 0, 55}]
PROG
(PARI) a(n) = vecmax(Vec(prod(i=1, n, (1-x^(i*(i+1)/2))))); \\ Michel Marcus, Feb 07 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 07 2024
STATUS
approved