%I #8 Aug 07 2024 10:15:20
%S 0,5,2,3,1,2,2,5,6,13,2,7,2,2,1,1,5,1,4,1,4,16,1,1,2,1,1,4,2,1,1,3,1,
%T 2,2,1,6,1,4,4,1,7,2,1,2,3,1,1,7,2,1,16,1,2,1,1,67,462,1,2,4,1,3,1,1,
%U 1,1,1,3,1,1,3,1,14,1,1,2,1,1,1,9,2,2,1,1107,2,3,10,2,4,1,1,1,1,1,44,1,1,4
%N Continued fraction expansion of -x, the largest negative root of the equation Fibonacci(x) = 0.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FibonacciNumber.html">Fibonacci Number</a>
%t ContinuedFraction[ -x/.FindRoot[Fibonacci[x]==0, {x, -0.2}, WorkingPrecision->100], 100]
%Y Cf. A089260 (decimal expansion).
%K cofr,nonn
%O 0,2
%A _T. D. Noe_, Oct 27 2003
%E Offset changed by _Andrew Howroyd_, Aug 07 2024