OFFSET
1,1
COMMENTS
The total stopping time of 230631 is 442. - Michael De Vlieger, Oct 15 2018
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..443
Eric Weisstein's World of Mathematics, Collatz Problem
Wikipedia, Collatz conjecture
MATHEMATICA
Off[Set::"setraw"]; f[n_]:=If[EvenQ[n], n=n/2, n=n*3+1]; Do[a=q; lst={a}; Do[a=f[a]; AppendTo[lst, a]; If[a==1, Break[]], {n, 10!}]; If[Length[lst]>400, Print[lst, Length[lst]]], {q, 5*8!, 9!}]
NestList[If[EvenQ[#], #/2, 3#+1]&, 230631, 30] (* Harvey P. Dale, Jun 26 2011 *)
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 20 2010
STATUS
approved