OFFSET
1,2
COMMENTS
Row lengths in A192719.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
coll[n_]:=NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #>1&]; t={1}; Do[If[FreeQ[Union@@Table[coll[i], {i, n-1}], n], AppendTo[t, Length[coll[n]]]], {n, 2, 144}]; t (* Jayanta Basu, May 29 2013 *)
PROG
(Haskell)
a220263 = length . a192719_row
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 03 2013
STATUS
approved