OFFSET
0,3
MATHEMATICA
Table[Max[CoefficientList[Product[(1 - Sum[(-x)^j, {j, 1, i}]), {i, 1, n}], x]], {n, 0, 24}]
PROG
(Python)
from collections import Counter
def A369773(n):
c = {0:1}
for k in range(1, n+1):
d = Counter(c)
for j in c:
a = c[j]
for i in range(1, k+1):
d[j+i] += (a if i&1 else -a)
c = d
return max(c.values()) # Chai Wah Wu, Feb 01 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 31 2024
STATUS
approved