A353427 Numbers k such that the k-th composition in standard order has all run-lengths > 1.
0, 3, 7, 10, 15, 31, 36, 42, 43, 58, 63, 87, 122, 127, 136, 147, 170, 171, 175, 228, 234, 235, 250, 255, 292, 295, 343, 351, 471, 484, 490, 491, 506, 511, 528, 547, 586, 591, 676, 682, 683, 687, 698, 703, 904, 915, 938, 939, 943, 983, 996, 1002, 1003, 1018
Offset: 1
Keywords
Examples
The terms and corresponding compositions begin: 0: () 3: (1,1) 7: (1,1,1) 10: (2,2) 15: (1,1,1,1) 31: (1,1,1,1,1) 36: (3,3) 42: (2,2,2) 43: (2,2,1,1) 58: (1,1,2,2) 63: (1,1,1,1,1,1) 87: (2,2,1,1,1) 122: (1,1,1,2,2) 127: (1,1,1,1,1,1,1)
Crossrefs
These compositions are counted by A114901.
The case of all run-lengths = 2 is A351011.
The case of all run-lengths > 2 is counted by A353400.
A005811 counts runs in binary expansion.
A011782 counts compositions.
Statistics of standard compositions:
- Runs are counted by A124767.
- Runs-resistance is A333628.
- Run-lengths are A333769.
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Select[Range[0,100],!MemberQ[Length/@Split[stc[#]],1]&]
Comments