cp's OEIS Frontend

A257701 Number of steps from n to 1 using this algorithm: x -> floor(r*x) if x is odd, and x -> floor(x/r) if x is even, where r = sqrt(3).

%I A257701 #4 May 06 2015 09:49:19
%S A257701 0,1,5,2,4,6,8,3,16,5,9,7,9,4,15,17,21,6,8,10,12,8,18,10,14,16,18,18,
%T A257701 20,22,32,7,11,9,11,11,13,13,17,19,23,11,13,15,19,17,21,19,21,19,21,
%U A257701 23,31,33,37,8,10,12,14,10,22,12,16,12,14,14,16,18,22
%N A257701 Number of steps from n to 1 using this algorithm:  x -> floor(r*x) if x is odd, and x -> floor(x/r) if x is even, where r = sqrt(3).
%H A257701 Clark Kimberling, <a href="/A257701/b257701.txt">Table of n, a(n) for n = 1..10000</a>
%e A257701 7->12->6->3->5->8->4->2->1, total of 8 steps, so that a(7) = 8.
%t A257701 r = Sqrt[3]; f[x_] := If[OddQ[x], Floor[r *x], Floor[x/r]]
%t A257701 g[x_] := Drop[FixedPointList[f, x], -1];
%t A257701 Table[-1 + Length[g[n]], {n, 1, 200}]
%Y A257701 Cf. A257698-A257700, A257702-A257706.
%K A257701 nonn,easy
%O A257701 1,3
%A A257701 _Clark Kimberling_, May 04 2015