A220140 Length of the Collatz iteration (3x+1) starting at A220139(n).

1, 2, 8, 13, 12, 99, 154, 153, 77, 98, 97, 264, 210, 235, 234, 114, 113, 218, 159, 158, 157, 350, 393, 392, 329, 328, 327, 311, 310, 309, 308, 307, 270, 455, 454, 435, 434, 632, 607, 606, 605, 604, 603, 602, 591, 573, 572, 644, 643, 779, 723, 717, 716, 813

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Mathematica

Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; c = {1}; t = {}; Do[AppendTo[t, Length[c]]; c = Collatz[Max[c] + 1], {100}]; t

Crossrefs

Sequence in context: A120000 A067678 A134905 * A344152 A030389 A136738

Adjacent sequences: A220137 A220138 A220139 * A220141 A220142 A220143

Keyword

nonn

Author

T. D. Noe, Jan 02 2013

Status

approved