%I #5 Nov 30 2022 17:37:19
%S 1,10,5,46,23,208,104,52,26,13,118,59,532,266,133,1198,599,5392,2696,
%T 1348,674,337,3034,1517,13654,6827,61444,30722,15361,138250,69125,
%U 622126,311063,2799568,1399784
%N Trajectory of 1 under map n->9n+1 if n odd, n->n/2 if n even
%t NestList[If[OddQ[#],9#+1,#/2]&,1,40] (* _Harvey P. Dale_, Nov 30 2022 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
|