A374639 Numbers k such that the leaders of maximal anti-runs in the k-th composition in standard order (A066099) are not distinct.
3, 7, 10, 14, 15, 21, 23, 27, 28, 29, 30, 31, 36, 39, 42, 43, 47, 51, 55, 56, 57, 58, 59, 60, 61, 62, 63, 71, 73, 79, 84, 85, 86, 87, 90, 94, 95, 99, 103, 106, 107, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 135
Offset: 1
Keywords
Examples
The sequence of terms together with the corresponding compositions begins: 3: (1,1) 7: (1,1,1) 10: (2,2) 14: (1,1,2) 15: (1,1,1,1) 21: (2,2,1) 23: (2,1,1,1) 27: (1,2,1,1) 28: (1,1,3) 29: (1,1,2,1) 30: (1,1,1,2) 31: (1,1,1,1,1)
Crossrefs
Positions of non-distinct (or non-strict) rows in A374515.
Compositions of this type are counted by A374678.
A065120 gives leaders of standard compositions.
A106356 counts compositions by number of maximal anti-runs.
A238279 counts compositions by number of maximal runs
All of the following pertain to compositions in standard order:
- Length is A000120.
- Sum is A029837(n+1).
- Parts are listed by A066099.
Six types of maximal runs:
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; Select[Range[0,100],!UnsameQ@@First/@Split[stc[#],UnsameQ]&]
Comments