OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..800
MAPLE
b:= proc(n) option remember; `if`(n=0, 1, (p->
add((t-> `if`(i<n, 0, t*x^(i-n))+t*x^(i+n))(
coeff(p, x, i)), i=0..degree(p)))(b(n-1)))
end:
a:= proc(n) option remember; (p->
add(i*coeff(p, x, i), i=0..degree(p)))(b(n))
end:
seq(a(n), n=0..35); # Alois P. Heinz, Jan 30 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
John Tyler Rascoe, Jan 30 2023
STATUS
approved