%I #7 May 31 2019 20:11:09
%S 1,38,19,704,352,176,88,44,22,11,408,204,102,51,1888,944,472,236,118,
%T 59,2184,1092,546,273,10102,5051,186888,93444,46722,23361,864358,
%U 432179,15990624,7995312,3997656,1998828
%N Trajectory of 1 under map n->37n+1 if n odd, n->n/2 if n even
%H Harvey P. Dale, <a href="/A033974/b033974.txt">Table of n, a(n) for n = 0..1000</a>
%t NestList[If[EvenQ[#],#/2,37#+1]&,1,40] (* _Harvey P. Dale_, May 31 2019 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
|