OFFSET
2,2
COMMENTS
LINKS
MATHEMATICA
scoll[n_]:=Sort[NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #>1&]]; Flatten[Table[scoll[n][[Flatten[Position[scoll[n], n]-1]]], {n, 2, 68}]] (* Jayanta Basu, May 28 2013 *)
PROG
(Haskell)
a225840 n = maximum $ filter (< n) $ a070165_row n
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 16 2013
STATUS
approved