Stopping times in the 3x+1 (Collatz) iteration of 2^n-1.
1, 6, 12, 13, 68, 69, 32, 33, 42, 43, 101, 102, 103, 104, 86, 87, 145, 146, 117, 118, 195, 196, 300, 301, 283, 284, 247, 248, 287, 288, 289, 290, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 544, 545
1
Note how this plot is very different from the reduced iteration in S000261.
T. D. Noe, Plot of 1000 terms
T. D. Noe, Table of 1000 terms
(Mma) Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, (3 # + 1)/2] &, n, # > 1 &]; Table[Length[Collatz[2^n - 1]], {n, 100}];
Cf. S000261.
nonn
T. D. Noe, Sep 19 2014