login
Irregular rows of odd numbers that produce n even numbers in their Collatz iteration.
6

%I #10 Mar 30 2012 17:23:03

%S 5,3,21,13,85,17,53,11,35,113,341,7,23,69,75,213,227,15,45,141,151,

%T 453,1365,9,29,93,277,301,853,909,19,61,181,201,565,605,1813,5461,37,

%U 117,369,373,401,403,1109,1137,1205,3413,3637,25,77,81,241,245,267,725

%N Irregular rows of odd numbers that produce n even numbers in their Collatz iteration.

%C It is conjectured that every odd number greater than 1 eventually appears in this sequence. The smallest and largest terms in row n are A199637(n) and A199638(n). The number of terms in row n is A131450(n) for n > 3.

%C The 10th and 20th rows are A199817 and A199818.

%H T. D. Noe, <a href="/A199636/b199636.txt">Rows n = 4..33, flattened</a>

%t 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

%K nonn,tabf

%O 4,1

%A _T. D. Noe_, Nov 14 2011