OFFSET
0,1
MATHEMATICA
NestList[If[EvenQ[#], #/2, 3#+3]&, 41, 100] (* Harvey P. Dale, Mar 30 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ernst Berg, May 15 2003
STATUS
approved