OFFSET
0,1
COMMENTS
LINKS
MATHEMATICA
NestList[If[EvenQ[#], #/2, 3#+1]&, 703, 40] (* Harvey P. Dale, Nov 27 2011 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Jun 03 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jul 27 2019
STATUS
approved