OFFSET
1,2
FORMULA
a(n) = A025586(2^n-1).
MATHEMATICA
Table[Max[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, 2^n-1, #>1&]], {n, 30}] (* Harvey P. Dale, Jul 19 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 24 2003
STATUS
approved