|
%I #9 Oct 20 2023 22:37:42
%S 5,14,7,20,10,5,14,7,20,10,5,14,7,20,10,5,14,7,20,10,5,14,7,20,10,5,
%T 14,7,20,10,5,14,7,20,10,5,14,7,20,10,5,14,7,20,10,5,14,7,20,10,5,14,
%U 7,20,10,5,14,7,20,10,5,14,7,20,10,5,14,7,20,10,5,14,7,20,10
%N One of the basic cycles in the x->3x-1 (x odd) or x/2 (x even) problem.
%D R. K. Guy, Unsolved Problems in Number Theory, E16.
%t NestList[If[OddQ[#],3#-1,#/2]&,5,80] (* _Harvey P. Dale_, Feb 27 2023 *)
%K nonn,easy
%O 0,1
%A _N. J. A. Sloane_
|
