|
|
A369764
|
|
Maximal coefficient of (1 - x) * (1 - x^8) * (1 - x^27) * ... * (1 - x^(n^3)).
|
|
2
|
|
|
1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 7, 7, 7, 8, 11, 18, 23, 28, 32, 40, 55, 58, 81, 118, 128, 171, 204, 327, 395, 555, 843, 1009, 1580, 2254, 3224, 4703, 6999, 4573, 6255, 7760, 12563, 15626, 22328, 33788, 47750, 51522, 84103, 120853, 168565, 312262, 306080
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,7
|
|
LINKS
|
|
|
MAPLE
|
b:= proc(n) b(n):= `if`(n=0, 1, expand(b(n-1)*(1-x^(n^3)))) end:
a:= n-> max(coeffs(b(n))):
|
|
PROG
|
(PARI) a(n)=vecmax(Vec(prod(k=1, n, 1-x^(k^3))));
(Python)
from collections import Counter
c = {0:1, 1:-1}
for i in range(2, n+1):
d = Counter(c)
for k in c:
d[k+i**3] -= c[k]
c = d
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|