OFFSET
0,6
COMMENTS
a(n) = 0 only if n = Fibonacci(k)-1.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10946
EXAMPLE
A014417(5) = 1000, two pairs of adjacent zeros, so a(5) = 2.
MAPLE
F:= combinat[fibonacci]:
b:= proc(n) option remember; local j;
if n=0 then 0
else for j from 2 while F(j+1)<=n do od;
b(n-F(j))+2^(j-2)
fi
end:
a:= proc(n) local c, h, m, t;
c, t, m:= 0, 1, b(n);
while m>0 do
h:= irem(m, 2, 'm');
if h=t and h=0 then c:=c+1 fi;
t:=h
od; c
end:
seq(a(n), n=0..150); # Alois P. Heinz, May 18 2012
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Alex Ratushnyak, May 13 2012
STATUS
approved