|
%I #9 Feb 09 2021 14:58:45
%S 1,2,1,3,4,2,1,4,2,1,5,14,7,8,4,2,1,6,3,4,2,1,7,8,4,2,1,8,4,2,1,9,26,
%T 13,22,11,28,14,7,8,4,2,1,10,5,14,7,8,4,2,1,11,28,14,7,8,4,2,1,12,6,3,
%U 4,2,1,13,22,11,28,14,7,8,4,2,1,14,7,8,4,2,1
%N Irregular triangle read by rows giving trajectory from n to reach 1 under the map A245471.
%C A340873 gives row lengths.
%C A341235 gives greatest terms.
%H Rémy Sigrist, <a href="/A341231/b341231.txt">Table of n, a(n) for n = 1..9098</a> (rows 1..500)
%F T(n, 1) = n.
%F T(n, A340873(n)) = 1.
%e Table begins:
%e 1;
%e 2, 1;
%e 3, 4, 2, 1;
%e 4, 2, 1;
%e 5, 14, 7, 8, 4, 2, 1;
%e 6, 3, 4, 2, 1;
%e 7, 8, 4, 2, 1;
%e 8, 4, 2, 1;
%e 9, 26, 13, 22, 11, 28, 14, 7, 8, 4, 2, 1;
%e 10, 5, 14, 7, 8, 4, 2, 1;
%e 11, 28, 14, 7, 8, 4, 2, 1;
%e 12, 6, 3, 4, 2, 1;
%e 13, 22, 11, 28, 14, 7, 8, 4, 2, 1;
%e 14, 7, 8, 4, 2, 1;
%e 15, 16, 8, 4, 2, 1;
%e 16, 8, 4, 2, 1;
%e ...
%o (PARI) row(n) = { my (r=[n]); while (n>1, r=concat(r, n=if (n%2, bitxor(n, 2*n+1), n/2))); r }
%Y Cf. A070165, A245471, A340873, A341235.
%K nonn,base,look,tabf
%O 1,2
%A _Rémy Sigrist_, Feb 07 2021
|
