A089261 Continued fraction expansion of -x, the largest negative root of the equation Fibonacci(x) = 0.
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, 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, 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
Offset: 0
Links
- Eric Weisstein's World of Mathematics, Fibonacci Number
Crossrefs
Cf. A089260 (decimal expansion).
Programs
-
Mathematica
ContinuedFraction[ -x/.FindRoot[Fibonacci[x]==0, {x, -0.2}, WorkingPrecision->100], 100]
Extensions
Offset changed by Andrew Howroyd, Aug 07 2024