OFFSET
1,2
COMMENTS
Sequence A222118 gives the number of terms in each row.
LINKS
EXAMPLE
The irregular table begins
{1},
{2},
{3, 4, 5, 8, 10, 16},
{},
{},
{6},
{7, 11, 13, 17, 20, 22, 26, 34, 40, 52},
{},
{9, 14, 28},
{},
{},
{12},
{},
{},
{15, 23, 35, 46, 53, 70, 80, 106, 160}
MATHEMATICA
Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; found = {}; t = Table[c = Collatz[n]; r = Complement[c, found]; found = Union[found, c]; r, {n, 27}]; Flatten[t]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
T. D. Noe, Feb 23 2013
STATUS
approved