OFFSET
0,7
MATHEMATICA
Table[Max[Abs[CoefficientList[Product[(1 - x^(k^3)), {k, 1, n}], x]]], {n, 0, 43}]
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 A369987(n):
c = {0:1}
for k in range(1, n+1):
m, b = k**3, Counter(c)
for j in c:
b[j+m] -= c[j]
c = b
return max(map(abs, c.values())) # Chai Wah Wu, Feb 07 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 07 2024
EXTENSIONS
More terms from Michel Marcus, Feb 07 2024
STATUS
approved