%I #11 Dec 08 2016 12:14:40
%S 83,248,124,62,31,92,46,23,68,34,17,50,25,74,37,110,55,164,82,41,122,
%T 61,182,91,272,136,68,34,17,50,25,74,37,110,55,164,82,41,122,61,182,
%U 91,272,136,68,34,17,50,25,74,37
%N x->x/2 if x even, x->3x-1 if x odd.
%C Modified Collatz sequence beginning with 83 and using 3x-1 rather than 3x+1 for odd terms. [From Harvey P. Dale, May 08 2012]
%D R. K. Guy, Unsolved Problems in Number Theory, E16.
%H <a href="/index/Rec#order_18">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
%t NestList[If[EvenQ[#],#/2,3#-1]&,83,60] (* _Harvey P. Dale_, May 08 2012 *)
%K nonn
%O 0,1
%A _N. J. A. Sloane_.
|