OFFSET
0,3
MATHEMATICA
a[0] = 1; a[n_] := a[n] = Coefficient[Product[x^a[k] + 1 + 1/x^a[k], {k, 0, n - 1}], x, a[n - 1]]; Table[a[n], {n, 0, 28}]
PROG
(Python)
from itertools import islice
from collections import Counter
def A367736_gen(): # generator of terms
c, b = {0:1}, 1
while True:
yield b
d = Counter(c)
for k in c:
e = c[k]
d[k+b] += e
d[k-b] += e
c = d
b = c[b]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ilya Gutkovskiy, Jan 24 2024
EXTENSIONS
a(29)-a(37) from Chai Wah Wu, Feb 05 2024
STATUS
approved