Where records occur in the reduced 3x-1 iteration.
1, 3, 5, 9, 17, 33, 65, 153, 321, 1425, 5697, 11025, 18273, 21657, 54081, 149345, 249189, 482817, 1556709, 5960769, 30430361, 98632289, 102510341, 131116185, 438099801, 706557957
1
See S000254 for the record values.
T. D. Noe, Plot of 26 terms
(Mma) t = {}; mx = 0; Do[cnt = 1; m = n; While[If[EvenQ[m], m = m/2, m = (3*m - 1)/2]; m > n, cnt++]; If[cnt > mx, mx = cnt; AppendTo[t, {n, mx}]], {n, 1000000}]; Transpose[t][[1]]
Cf. S000252 (reduced iteration), S000254.
nonn,more
T. D. Noe, Sep 09 2014