OFFSET
4,1
COMMENTS
LINKS
T. D. Noe, Rows n = 4..33, flattened
EXAMPLE
Triangle begins:
5;
3;
21;
13;
85;
17, 53;
11, 35, 113, 341;
7, 23, 69, 75, 213, 227;
...
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
