|
| |
|
|
A369986
|
|
Maximum of the absolute value of the coefficients of (1 - x) * (1 - x^4) * (1 - x^9) * ... * (1 - x^(n^2)).
|
|
1
|
|
|
|
1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 4, 6, 7, 8, 11, 14, 12, 14, 20, 20, 28, 40, 54, 63, 103, 100, 103, 129, 198, 225, 295, 363, 286, 433, 815, 629, 796, 1236, 1363, 1258, 1723, 2791, 3873, 5244, 6409, 6236, 9724, 13800, 18153, 22993, 23120, 28173, 49135, 46042
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,8
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
Table[Max[Abs[CoefficientList[Product[(1 - x^(k^2)), {k, 1, n}], x]]], {n, 0, 54}]
|
|
|
PROG
|
(PARI) a(n) = vecmax(apply(abs, Vec(prod(i=1, n, (1-x^(i^2)))))); \\ Michel Marcus, Feb 07 2024
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
