OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
f:= proc(n) option remember;
procname(n-1) + procname(Bits:-And(2*n, n))
end proc:
f(0):= 1:
seq(f(i), i=0..100); # Robert Israel, Dec 29 2016
PROG
(Python)
a = [1]*1000
for n in range(1, 777):
print a[n-1],
a[n]= a[n-1] + a[2*n & n]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Alex Ratushnyak, Aug 13 2012
STATUS
approved