OFFSET
1,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A000045(ceiling(log(n+1)/log(2))+1).
a(1)=1 then a(n) = a(floor(n/2)) + a(floor(n/4)). - Benoit Cloitre, Feb 03 2014
MATHEMATICA
Fibonacci[BitLength[Range[100]] + 1] (* Paolo Xausa, Oct 16 2024 *)
PROG
(PARI) g(n)=if(n<2, 1, if(n%2, g(n-1), 1/g(n/2)+1))
a(n)=numerator(g(n))
(PARI) a(n)=fibonacci(ceil(log(n+1)/log(2))+1)
(PARI) a(n)=if(n<2, 1, a(n\2)+a(n\4))
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Benoit Cloitre, Oct 20 2006
EXTENSIONS
Offset changed to 1 by Paolo Xausa, Oct 16 2024
STATUS
approved