A087701 Maximal term in Collatz-iteration started at -1+2^n.

1, 16, 52, 160, 9232, 9232, 4372, 13120, 39364, 118096, 1276936, 1276936, 6810136, 9565936, 28697812, 86093440, 1570824736, 1570824736, 2324522932, 6973568800, 20920706404, 62762119216, 188286357652, 564859072960, 9161049517720

Offset: 1

Author

Labos Elemer, Sep 24 2003

Keywords

• nonn

Crossrefs

Cf. A025586.

Programs

Mathematica

Table[Max[NestWhileList[If[EvenQ[#],#/2,3#+1]&,2^n-1,#>1&]],{n,30}] (* Harvey P. Dale, Jul 19 2019 *)

Formula

a(n) = A025586(2^n-1).