A033977 - OEIS

%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_.