A369985 Maximum of the absolute value of the coefficients of (1 - x) * (1 - x^3) * (1 - x^6) * ... * (1 - x^(n*(n+1)/2)).
1, 1, 1, 1, 2, 2, 2, 3, 3, 5, 4, 5, 4, 8, 10, 9, 14, 16, 26, 36, 47, 51, 82, 48, 43, 49, 56, 94, 147, 152, 174, 120, 214, 268, 370, 580, 519, 598, 1024, 1217, 1750, 2473, 2417, 3340, 4795, 7086, 12978, 4808, 5675, 9373, 13083, 9644, 8762, 9516, 10702, 14483
Offset: 0
Keywords
Programs
-
Mathematica
Table[Max[Abs[CoefficientList[Product[(1 - x^(k (k + 1)/2)), {k, 1, n}], x]]], {n, 0, 55}] -
PARI
a(n) = vecmax(apply(abs, Vec(prod(i=1, n, (1-x^(i*(i+1)/2)))))); \\ Michel Marcus, Feb 07 2024