login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Trajectory of 41 under map x -> x/2 if x even, x-> 3x+3 if x odd.
3

%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