S000561


The numbers k in S000559.

1, 6, 12, 14, 15, 17, 71, 72, 74, 76, 78, 80, 82, 84, 92, 93, 109, 114, 116, 117, 133, 138, 151, 166, 170, 175, 177, 179, 195, 197, 205, 215, 222, 224, 237, 242, 244, 279, 283, 296, 320, 330, 332, 334, 350, 352, 354, 367, 375, 385, 417, 430, 432, 434, 442

1

S000561

comment

T. D. Noe, Plot of 64 terms

T. D. Noe, Table of 64 terms

Eric W. Weinstein, MathWorld: Collatz Problem

(Mma) nn = 11; Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, (3*# + 1)/2] &, n, # > 1 &]; c = Table[Length[Collatz[n]], {n, 1, 2^(nn - 1), 2}]; t = {{1, 1}}; Do[If[c[[i]] > t[[-1, 2]], AppendTo[t, {2 i - 1, c[[i]]}]], {i, Length[c]}]; Transpose[t][[2]]

Cf. A006877, S000559, S000560.

nonn

T. D. Noe, Apr 06 2015

© Tony D Noe 2014-2015