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