A124230 Denominator of g(n) defined by g(1)=1, g(2n)=1/g(n)+1, g(2n+1)=g(2n).
1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13
Offset: 1
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Fibonacci[BitLength[Range[100]]] (* Paolo Xausa, Oct 16 2024 *)
-
PARI
g(n)=if(n<2,1,if(n%2,g(n-1),1/g(n/2)+1)) a(n)=denominator(g(n))
-
PARI
a(n)=fibonacci(ceil(log(n+1)/log(2)))
Formula
a(n) = A000045(ceiling(log(n+1)/log(2))).