A358134 Triangle read by rows whose n-th row lists the partial sums of the n-th composition in standard order (row n of A066099).
1, 2, 1, 2, 3, 2, 3, 1, 3, 1, 2, 3, 4, 3, 4, 2, 4, 2, 3, 4, 1, 4, 1, 3, 4, 1, 2, 4, 1, 2, 3, 4, 5, 4, 5, 3, 5, 3, 4, 5, 2, 5, 2, 4, 5, 2, 3, 5, 2, 3, 4, 5, 1, 5, 1, 4, 5, 1, 3, 5, 1, 3, 4, 5, 1, 2, 5, 1, 2, 4, 5, 1, 2, 3, 5, 1, 2, 3, 4, 5, 6, 5, 6, 4, 6, 4, 5
Offset: 1
Examples
Triangle begins: 1 2 1 2 3 2 3 1 3 1 2 3 4 3 4 2 4 2 3 4 1 4 1 3 4 1 2 4 1 2 3 4
Links
Crossrefs
See link for sequences related to standard compositions.
First element in each row is A065120.
Rows are the partial sums of rows of A066099.
Last element in each row is A070939.
The first differences instead of partial sums are A358133.
Row sums are A359042.
A011782 counts compositions.
A351014 counts distinct runs in standard compositions.
A358135 gives last minus first of standard compositions.
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Join@@Table[Accumulate[stc[n]],{n,100}]
Comments