A375139 Numbers k such that the leaders of strictly increasing runs in the k-th composition in standard order are not weakly decreasing.
26, 50, 53, 58, 90, 98, 100, 101, 106, 107, 114, 117, 122, 154, 164, 178, 181, 186, 194, 196, 197, 201, 202, 203, 210, 212, 213, 214, 215, 218, 226, 228, 229, 234, 235, 242, 245, 250, 282, 306, 309, 314, 324, 329, 346, 354, 356, 357, 362, 363, 370, 373, 378
Offset: 1
Keywords
Examples
The terms together with corresponding compositions begin: 26: (1,2,2) 50: (1,3,2) 53: (1,2,2,1) 58: (1,1,2,2) 90: (2,1,2,2) 98: (1,4,2) 100: (1,3,3) 101: (1,3,2,1) 106: (1,2,2,2) 107: (1,2,2,1,1) 114: (1,1,3,2) 117: (1,1,2,2,1) 122: (1,1,1,2,2) 154: (3,1,2,2) 164: (2,3,3) 178: (2,1,3,2) 181: (2,1,2,2,1) 186: (2,1,1,2,2)
Links
Crossrefs
For leaders of identical runs we have A335485.
Ranked by positions of non-weakly decreasing rows in A374683.
The complement is counted by A374697.
Compositions of this type are counted by A375135.
A374700 counts compositions by sum of leaders of strictly increasing runs.
All of the following pertain to compositions in standard order:
- Length is A000120.
- Sum is A029837(n+1).
- Leader is A065120.
- Parts are listed by A066099.
- Strict compositions are A233564.
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Select[Range[0,100],!GreaterEqual@@First/@Split[stc[#],Less]&]
Comments