OFFSET
1,1
EXAMPLE
Compare to A087972, when iv=1+3^n.
MATHEMATICA
Table[Max[NestList[If[EvenQ[#], #/2, 3#+1]&, 3^n, 100]], {n, 25}] (* Harvey P. Dale, Dec 08 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 24 2003
STATUS
approved