OFFSET
1,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
EXAMPLE
3 -> 9 -> 28 -> 8 -> 2 -> 0, a total of 5 steps, so a(3) = 5.
MATHEMATICA
r = Pi; 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 07 2015
STATUS
approved