OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000
MAPLE
b:= proc(n) option remember; `if`(n<2, n, (h->
[map(x-> 2*x-1, [b(n-h)])[],
map(x-> 2*x, [b(h)])[]][])(iquo(n, 2)))
end:
a:= n-> (l-> add(i*l[i], i=1..n))([b(n)]):
seq(a(n), n=0..50);
MATHEMATICA
T[n_] := T[n] = If[n == 1, {1}, Join[q = Quotient[n, 2];
2*T[n - q] - 1, 2*T[q]]];
a[n_] := Sum[k*T[n][[k]], {k, 1, n}];
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jul 25 2019
STATUS
approved