|
%I #5 Jun 01 2022 19:57:03
%S 3,34,17,188,94,47,518,259,2850,1425,15676,7838,3919,43110,21555,
%T 237106,118553,1304084,652042,326021,3586232,1793116,896558,448279,
%U 4931070,2465535,27120886,13560443,149164874
%N Trajectory of 3 under map n->11n+1 if n odd, n->n/2 if n even
%t NestList[If[OddQ[#],11#+1,#/2]&,3,40] (* _Harvey P. Dale_, Jun 01 2022 *)
%K nonn
%O 0,1
%A _N. J. A. Sloane_.
|
