OFFSET
0,2
COMMENTS
This is the first number in row n of A222599.
LINKS
T. D. Noe, Table of n, a(n) for n = 0..264 (searching until the Collatz sequence has a term greater than 2^63)
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; nn = 50; t = Table[0, {nn}]; n = 0; While[Min[t] == 0, n++; c = Collatz[n]; e = Select[c, EvenQ]; diff = 2*Length[e] - Length[c]; If[diff < nn - 1 && t[[diff + 2]] == 0, t[[diff + 2]] = n]]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 04 2013
STATUS
approved