cp's OEIS Frontend

A337260 Compositions, sorted by increasing sum, decreasing length and increasing colexicographical order.

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