|
|
A369791
|
|
a(n) is the maximal coefficient of (1 + x^a(1)) * (1 + x^a(1) + x^a(2)) * ... * (1 + x^a(1) + x^a(2) + ... + x^a(n-1)).
|
|
0
|
|
|
1, 1, 1, 3, 8, 22, 70, 262, 1088, 5076, 26490, 146542, 896402, 5662622, 39826304, 279072864, 2232912264, 17866212198, 153323343990, 1379920982310, 13115759159982, 131158174385100
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MATHEMATICA
|
a[n_] := a[n] = Max[CoefficientList[Product[(1 + Sum[x^a[j], {j, 1, i}]), {i, 1, n - 1}], x]]; Table[a[n], {n, 0, 15}]
|
|
PROG
|
(Python)
from itertools import islice
from collections import Counter
def A369791_gen(): # generator of terms
c, a = {0:1}, []
while True:
a.append(max(c.values()))
yield a[-1]
d = Counter(c)
for k in c:
for b in a:
d[k+b] += c[k]
c = d
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|