OFFSET
4,1
COMMENTS
LINKS
T. D. Noe, Rows n = 4..33, flattened
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; nn = 16; t = Table[{}, {nn}]; Do[len = Length[Select[Collatz[n], EvenQ]]; If[0 < len <= nn, AppendTo[t[[len]], n]], {n, 1, 25000, 2}]; t
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
T. D. Noe, Nov 14 2011
STATUS
approved