cp's OEIS Frontend

A337243 Compositions, sorted by increasing sum, increasing length, and increasing colexicographical order.

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