OFFSET
1,3
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
EXAMPLE
5->8->4->2->1, total of 4 steps, so that a(5) = 4.
MATHEMATICA
r = 5/3; f[x_] := If[OddQ[x], Floor[r *x], Floor[x/r]]
g[x_] := Drop[FixedPointList[f, x], -1];
Table[-1 + Length[g[n]], {n, 1, 200}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 04 2015
STATUS
approved