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