cp's OEIS Frontend

A257698 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 = 3/2.

%I A257698 #5 May 06 2015 09:48:57
%S A257698 0,1,3,2,6,3,5,7,13,4,6,8,12,14,16,5,13,9,11,13,17,15,17,6,12,14,16,
%T A257698 10,14,14,16,18,28,16,18,7,11,13,15,15,21,11,13,15,19,15,17,19,27,29,
%U A257698 31,17,21,8,10,12,18,14,16,16,20,22,24,12,24,16,18,20,24
%N A257698 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 = 3/2.
%H A257698 Clark Kimberling, <a href="/A257698/b257698.txt">Table of n, a(n) for n = 1..10000</a>
%e A257698 5->7->10->6->4->2->1, total of 6 steps, so that a(5) = 6.
%t A257698 r = 3/2; f[x_] := If[OddQ[x], Floor[r *x], Floor[x/r]]
%t A257698 g[x_] := Drop[FixedPointList[f, x], -1];
%t A257698 Table[-1 + Length[g[n]], {n, 1, 200}]
%Y A257698 Cf. A257699-A257706.
%K A257698 nonn,easy
%O A257698 1,3
%A A257698 _Clark Kimberling_, May 04 2015