OFFSET
1,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
EXAMPLE
5->12->4->1->2->0, total of 5 steps, so that a(5) = 5.
MATHEMATICA
r = 5/2; 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