OFFSET
1,3
MATHEMATICA
ns[n_]:=Length[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n!, #!=1&]]-1; Array[ ns, 60] (* Harvey P. Dale, Jan 17 2013 *)
PROG
(PARI) for(n=2, 100, s=n!; t=0; while(s!=1, t++; if(s%2==0, s=s/2, s=3*s+1); if(s==1, print1(t, ", "); ); ))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, May 17 2002
STATUS
approved