A290013 Length of the period of the continued fraction expansion of phi/n where phi is the golden ratio.
1, 1, 2, 2, 1, 6, 2, 2, 6, 5, 4, 4, 1, 10, 8, 4, 3, 2, 8, 14, 2, 12, 10, 4, 11, 5, 14, 10, 4, 28, 8, 8, 8, 1, 20, 2, 7, 4, 8, 14, 6, 6, 18, 8, 24, 6, 2, 4, 22, 31, 12, 14, 9, 10, 2, 12, 16, 12, 20, 20, 5, 8, 8, 20, 13, 20, 22, 2, 10, 52, 28, 2, 15, 19, 36, 4
Offset: 1
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
a[n_] := ContinuedFraction[GoldenRatio/n] // Last // Length; Array[a, 80] (* Jean-François Alcover, Jul 28 2017 *)
Comments