A037116 - OEIS

%I #5 Jan 03 2014 19:22:43

%S 3,112,56,28,14,7,260,130,65,2406,1203,44512,22256,11128,5564,2782,

%T 1391,51468,25734,12867,476080,238040,119020,59510,29755,1100936,

%U 550468,275234,137617,5091830,2545915

%N Trajectory of 3 under map n->37n+1 if n odd, n->n/2 if n even

%t NestList[If[EvenQ[#],#/2,37#+1]&,3,30] (* _Harvey P. Dale_, Jan 03 2014 *)

%K nonn

%O 0,1

%A _N. J. A. Sloane_.