|
%I #5 Aug 24 2012 13:51:57
%S 1,22,11,232,116,58,29,610,305,6406,3203,67264,33632,16816,8408,4204,
%T 2102,1051,22072,11036,5518,2759,57940,28970,14485,304186,152093,
%U 3193954,1596977,33536518,16768259
%N Trajectory of 1 under map n->21n+1 if n odd, n->n/2 if n even
%t NestList[If[OddQ[#],21#+1,#/2]&,1,30] (* _Harvey P. Dale_, Aug 24 2012 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
|
