OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
EXAMPLE
8->12->19->11->6->9->5->3->1->0; 9 steps, so that a(8) = 9.
MATHEMATICA
r = GoldenRatio; f[x_] := If[OddQ[x], Floor[x/r], Floor[r*x]];
h[x_] := -1 + Length[Drop[FixedPointList[f, x], -1]];
Table[h[n], {n, 1, 100}] (* Clark Kimberling, May 04 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Nov 26 2010
STATUS
approved