OFFSET
0,4
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
I would very much like a g.f. for this sequence!
MAPLE
f:= proc(n) option remember; local i, j;
i:= ilog2(n);
j:= n - 2^i;
if j = 2^i-1 then procname(j)+procname(j+1)+1
else procname(j)+procname(j+1)
fi
end proc:
f(0):= 1: f(1):=0: f(2):= 1:
map(f, [$0..100]); # Robert Israel, Oct 30 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 17 2009
EXTENSIONS
Name corrected by Robert Israel, Oct 30 2017
STATUS
approved