|
%I #5 Nov 21 2013 12:47:36
%S 41,126,63,192,96,48,24,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,
%T 6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,
%U 12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3,12,6,3
%N Trajectory of 41 under map x -> x/2 if x even, x-> 3x+3 if x odd.
%t NestList[If[EvenQ[#],#/2,3#+3]&,41,100] (* _Harvey P. Dale_, Mar 30 2011 *)
%K nonn
%O 0,1
%A _Ernst Berg_, May 15 2003
|
