%I #13 Sep 28 2020 21:36:26
%S 1,1,1,2,1,1,1,2,1,1,2,3,1,1,1,1,2,1,1,1,2,1,1,1,2,3,1,2,2,1,3,4,1,1,
%T 1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,3,1,1,2,2,1,1,3,1,2,1,2,1,2,2,
%U 1,1,3,4,1,3,2,2,3,1,4,5
%N Compositions, sorted by increasing sum, decreasing length and increasing colexicographical order.
%e The first 5 rows are:
%e (1),
%e (1, 1), (2),
%e (1, 1, 1), (2, 1), (1, 2), (3),
%e (1, 1, 1, 1), (2, 1, 1), (1, 2, 1), (1, 1, 2), (3, 1), (2, 2), (1, 3), (4),
%e (1, 1, 1, 1, 1), (2, 1, 1, 1), (1, 2, 1, 1), (1, 1, 2, 1), (1, 1, 1, 2), (3, 1, 1), (2, 2, 1), (1, 3, 1), (2, 1, 2), (1, 2, 2), (1, 1, 3), (4, 1), (3, 2), (2, 3), (1, 4), (5).
%p List := proc(n)
%p local i, j, k, L:
%p L := []:
%p for i from 1 to n do
%p for j from 1 to i do
%p L := [op(L), op(combinat:-composition(i, i-j+1))]:
%p od:
%p od:
%p for k from 1 to numelems(L) do L[k] := ListTools:-Reverse(L[k]): od:
%p L:
%p end:
%Y Cf. A124734 (increasing length, then lexicographic).
%Y Cf. A296774 (increasing length, then reverse lexicographic).
%Y Cf. A337243 (increasing length, then colexicographic).
%Y Cf. A337259 (increasing length, then reverse colexicographic).
%Y Cf. A296773 (decreasing length, then lexicographic).
%Y Cf. A296772 (decreasing length, then reverse lexicographic).
%Y Cf. A108244 (decreasing length, then reverse colexicographic).
%Y Cf. A228369 (lexicographic).
%Y Cf. A066099 (reverse lexicographic).
%Y Cf. A228525 (colexicographic).
%Y Cf. A228351 (reverse colexicographic).
%K nonn,tabf
%O 1,4
%A _Lorenzo Sauras Altuzarra_, Aug 21 2020