|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|