A037105 - OEIS

%I #5 Aug 03 2016 13:54:37

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