[go: up one dir, main page]

login
A220140
Length of the Collatz iteration (3x+1) starting at A220139(n).
3
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
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Jan 02 2013
STATUS
approved