|
|
A369728
|
|
Maximal coefficient of (1 - x) * (1 - x^4) * (1 - x^9) * ... * (1 - x^(n^2)).
|
|
5
|
|
|
1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 4, 6, 7, 8, 11, 14, 12, 12, 20, 20, 28, 40, 54, 59, 103, 100, 103, 129, 198, 225, 295, 363, 286, 433, 815, 629, 796, 1236, 1363, 1258, 1723, 2143, 3873, 4469, 6409, 6019, 9724, 12844, 18153, 20914, 23120, 28173, 49135, 46042, 78112
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,8
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Max[CoefficientList[Product[(1 - x^(k^2)), {k, 1, n}], x]], {n, 0, 55}]
|
|
PROG
|
(PARI) a(n) = vecmax(Vec(prod(k=1, n, (1-x^k^2)))); \\ Michel Marcus, Jan 30 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|