|
%I
%S 3,46,23,346,173,2596,1298,649,9736,4868,2434,1217,18256,9128,4564,
%T 2282,1141,17116,8558,4279,64186,32093,481396,240698,120349,1805236,
%U 902618,451309,6769636,3384818,1692409
%N Trajectory of 3 under map n->15n+1 if n odd, n->n/2 if n even
%t NestList[If[OddQ[#],15#+1,#/2]&,3,40] (* _Harvey P. Dale_, Aug 03 2016 *)
%K nonn
%O 0,1
%A _N. J. A. Sloane_.
|
