|
%I #7 Jan 28 2021 16:27:55
%S 1,44,22,11,474,237,10192,5096,2548,1274,637,27392,13696,6848,3424,
%T 1712,856,428,214,107,4602,2301,98944,49472,24736,12368,6184,3092,
%U 1546,773,33240,16620,8310,4155,178666
%N Trajectory of 1 under map n->43n+1 if n odd, n->n/2 if n even
%H Harvey P. Dale, <a href="/A033977/b033977.txt">Table of n, a(n) for n = 0..1000</a>
%t NestList[If[OddQ[#],43#+1,#/2]&,1,40] (* _Harvey P. Dale_, Jan 28 2021 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
|
