The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #10 Jul 08 2025 22:00:54
%S 3,94,47,1458,729,22600,11300,5650,2825,87576,43788,21894,10947,
%T 339358,169679,5260050,2630025,81530776,40765388,20382694,10191347,
%U 315931758,157965879,4896942250,2448471125
%N Trajectory of 3 under map n->31n+1 if n odd, n->n/2 if n even.
%t NestList[If[OddQ[#],31#+1,#/2]&,3,30] (* _Harvey P. Dale_, Mar 07 2012 *)
%K nonn
%O 0,1
%A _N. J. A. Sloane_