%I #5 May 09 2013 14:59:19

%S 3,100,50,25,826,413,13630,6815,224896,112448,56224,28112,14056,7028,

%T 3514,1757,57982,28991,956704,478352,239176,119588,59794,29897,986602,

%U 493301,16278934,8139467,268602412

%N Trajectory of 3 under map n->33n+1 if n odd, n->n/2 if n even

%t NestList[If[OddQ[#],33#+1,#/2]&,3,30] (* _Harvey P. Dale_, May 09 2013 *)

%K nonn

%O 0,1

%A _N. J. A. Sloane_.