OFFSET
0,2
EXAMPLE
a(4)=3 since 3 is the least number such that largest member of Collatz(3 x + 1) trajectory of 3 is 2^4 = 16.
MATHEMATICA
Coll[n_]:=NestWhileList[If[EvenQ[#], #/2, 3*#+1]&, n, #>1 &]; t={}; Do[i=1; While[Max[Coll[i]] != 2^n, i++]; AppendTo[t, i], {n, 0, 25}]; t
PROG
(Haskell)
a225124 = (+ 1) . fromJust . (`elemIndex` a025586_list) . a000079
-- Reinhard Zumkeller, Apr 30 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Jayanta Basu, Apr 29 2013
STATUS
approved