A374520 Numbers k such that the leaders of maximal anti-runs in the k-th composition in standard order (A066099) are not identical.
11, 19, 23, 26, 35, 39, 43, 46, 47, 53, 58, 67, 71, 74, 75, 78, 79, 83, 87, 91, 92, 93, 94, 95, 100, 106, 107, 117, 122, 131, 135, 138, 139, 142, 143, 147, 149, 151, 154, 155, 156, 157, 158, 159, 163, 164, 167, 171, 174, 175, 179, 183, 184, 185, 186, 187, 188
Offset: 1
Keywords
Examples
The sequence together with corresponding compositions begins: 11: (2,1,1) 19: (3,1,1) 23: (2,1,1,1) 26: (1,2,2) 35: (4,1,1) 39: (3,1,1,1) 43: (2,2,1,1) 46: (2,1,1,2) 47: (2,1,1,1,1) 53: (1,2,2,1) 58: (1,1,2,2) 67: (5,1,1) 71: (4,1,1,1) 74: (3,2,2) 75: (3,2,1,1) 78: (3,1,1,2) 79: (3,1,1,1,1) 83: (2,3,1,1) 87: (2,2,1,1,1) 91: (2,1,2,1,1)
Links
Crossrefs
For leaders of maximal constant runs we have the complement of A272919.
Positions of non-constant rows in A374515.
For distinct instead of identical leaders we have A374639, counted by A374678, complement A374638, counted by A374518.
Compositions of this type are counted by A374640.
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],!SameQ@@First/@Split[stc[#],UnsameQ]&]
Comments