This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A124230 #19 Oct 17 2024 08:22:10 %S A124230 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, %T A124230 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, %U A124230 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 %N A124230 Denominator of g(n) defined by g(1)=1, g(2n)=1/g(n)+1, g(2n+1)=g(2n). %H A124230 Paolo Xausa, <a href="/A124230/b124230.txt">Table of n, a(n) for n = 1..10000</a> %F A124230 a(n) = A000045(ceiling(log(n+1)/log(2))). %F A124230 a(n) = A000045(A070939(n)). - _Paolo Xausa_, Oct 17 2024 %t A124230 Fibonacci[BitLength[Range[100]]] (* _Paolo Xausa_, Oct 16 2024 *) %o A124230 (PARI) g(n)=if(n<2,1,if(n%2,g(n-1),1/g(n/2)+1)) %o A124230 a(n)=denominator(g(n)) %o A124230 (PARI) a(n)=fibonacci(ceil(log(n+1)/log(2))) %Y A124230 Cf. A000045, A020650, A070939, A124229. %K A124230 frac,nonn %O A124230 1,4 %A A124230 _Benoit Cloitre_, Oct 20 2006