A339351 Irregular triangle read by rows in which row n lists the compositions (ordered partitions) of n into distinct parts in lexicographic order.
1, 2, 1, 2, 2, 1, 3, 1, 3, 3, 1, 4, 1, 4, 2, 3, 3, 2, 4, 1, 5, 1, 2, 3, 1, 3, 2, 1, 5, 2, 1, 3, 2, 3, 1, 2, 4, 3, 1, 2, 3, 2, 1, 4, 2, 5, 1, 6, 1, 2, 4, 1, 4, 2, 1, 6, 2, 1, 4, 2, 4, 1, 2, 5, 3, 4, 4, 1, 2, 4, 2, 1, 4, 3, 5, 2, 6, 1, 7, 1, 2, 5, 1, 3, 4, 1, 4, 3, 1, 5, 2, 1, 7, 2, 1, 5, 2, 5, 1, 2, 6, 3, 1, 4, 3, 4, 1, 3, 5, 4, 1, 3, 4, 3, 1, 5, 1, 2, 5, 2, 1, 5, 3, 6, 2, 7, 1, 8
Offset: 1
Examples
Triangle begins: [1], [2], [1, 2], [2, 1], [3], [1, 3], [3, 1], [4], [1, 4], [2, 3], [3, 2], [4, 1], [5], ...
Crossrefs
Programs
-
Mathematica
Table[Sort[Join @@ Permutations /@ Select[IntegerPartitions[n], UnsameQ @@ # &], OrderedQ[PadRight[{#1, #2}]] &], {n, 8}] // Flatten