cp's OEIS Frontend

A222297 Irregular triangle of numbers first appearing in the Collatz (3x+1) iteration of n.

%I A222297 #8 Mar 24 2017 00:47:55
%S A222297 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,
%T A222297 46,53,70,80,106,160,18,19,29,44,58,88,21,32,64,24,25,38,76,27,31,41,
%U A222297 47,61,62,71,82,91,92,94,103,107,121,122,124,137,142,155,161
%N A222297 Irregular triangle of numbers first appearing in the Collatz (3x+1) iteration of n.
%C A222297 Sequence A222118 gives the number of terms in each row.
%H A222297 T. D. Noe, <a href="/A222297/b222297.txt">Rows n = 1..4000 of irregular triangle, flattened</a>
%e A222297 The irregular table begins
%e A222297 {1},
%e A222297 {2},
%e A222297 {3, 4, 5, 8, 10, 16},
%e A222297 {},
%e A222297 {},
%e A222297 {6},
%e A222297 {7, 11, 13, 17, 20, 22, 26, 34, 40, 52},
%e A222297 {},
%e A222297 {9, 14, 28},
%e A222297 {},
%e A222297 {},
%e A222297 {12},
%e A222297 {},
%e A222297 {},
%e A222297 {15, 23, 35, 46, 53, 70, 80, 106, 160}
%t A222297 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]
%Y A222297 Cf. A222118.
%K A222297 nonn,tabf
%O A222297 1,2
%A A222297 _T. D. Noe_, Feb 23 2013