login
A052005
Number of Fibonacci numbers (A000045) with length n in base 2.
5
2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1
OFFSET
1,1
COMMENTS
There are no double 2's except at the very start because multiplying by phi^3 adds at least 2 to Fn's binary length. For a similar reason there aren't any 3's because multiplying by phi^2 increments at least by one F(n)'s binary length.
Also a(n) is the number of Fibonacci numbers F(k) between powers of 2 such that 2^n <= F(k) < 2^(n+1). - Frank M Jackson, Apr 14 2013
FORMULA
Asymptotic mean: lim_{m->oo} (1/m) * Sum_{k=1..m} a(k) = log(2)/log(phi) = A104287. - Amiram Eldar, Nov 21 2021
EXAMPLE
F(17) = 1597{10} = 11000111101{2} the only one of length 11 and F(18) = 2584{10} = 101000011000{2} the only one of length 12 so both a(11) and a(12) equal 1.
MATHEMATICA
nmax = 105; kmax = Floor[ k /. FindRoot[ Log[2, Fibonacci[k]] == nmax, {k, nmax, 2*nmax}]]; A052005 = Tally[ Length /@ IntegerDigits[ Fibonacci[ Range[kmax]], 2]][[All, 2]] (* Jean-François Alcover, May 07 2012 *)
termcount[n1_] := (m1=0; While[Fibonacci[m1]<2^n1, m1++]; m1); Table[termcount[n+1]-termcount[n], {n, 0, 200}] (* Frank M Jackson, Apr 14 2013 *)
Most[Transpose[Tally[Table[Length[IntegerDigits[Fibonacci[n], 2]], {n, 140}]]][[2]]] (* T. D. Noe, Apr 16 2013 *)
KEYWORD
nonn,base
AUTHOR
STATUS
approved