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