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

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, 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, 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

Offset: 0

Author

Ernst Berg, May 15 2003

Keywords

• nonn

Programs

Mathematica

NestList[If[EvenQ[#],#/2,3#+3]&,41,100]  (* Harvey P. Dale, Mar 30 2011 *)