OFFSET
0,2
MATHEMATICA
Table[Max[Abs[CoefficientList[Product[(1 - x^k)^3, {k, 1, n}], x]]], {n, 0, 35}]
PROG
(PARI) a(n) = vecmax(apply(abs, Vec(prod(i=1, n, (1-x^i)^3)))); \\ Michel Marcus, Feb 07 2024
(Python)
from collections import Counter
def A369983(n):
c = {0:1}
for k in range(1, n+1):
d = Counter(c)
for j in c:
a = c[j]
d[j+k] -= 3*a
d[j+2*k] += 3*a
d[j+3*k] -= a
c = d
return max(map(abs, c.values())) # Chai Wah Wu, Feb 07 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 07 2024
STATUS
approved