OFFSET
1,2
LINKS
MATHEMATICA
nst[n_]:=Length[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #>1&]]; nn=60; With[ {stps= Array[nst, nn]}, Table[Max[Take[stps, n]], {n, nn}]] (* Harvey P. Dale, Apr 17 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benjamin Frost (benjamin.frost(AT)students.adelaide.edu.au), Sep 02 2008
EXTENSIONS
Corrected and extended by Harvey P. Dale, Apr 17 2014
STATUS
approved