OFFSET
1,1
COMMENTS
Sequence contains all the Fibonacci numbers greater than 1 (A020695).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..500
EXAMPLE
5/2 = [2, 2], 5/3 = [1, 1, 2], 5/4 = [1, 4]; thus the continued fraction for 5/m is maximized at the unique value m=3, and 5 is in the sequence.
MATHEMATICA
cfQ[v_] := Count[v, Max[v]] == 1; q[n_] := cfQ[Length[ContinuedFraction[#/n]] & /@ Range[2, n - 1]]; Join[{2}, Select[Range[3, 1000], q]](* Amiram Eldar, Jun 25 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Oct 25 2006
STATUS
approved