A374638 Numbers k such that the leaders of anti-runs in the k-th composition in standard order (A066099) are distinct.
0, 1, 2, 4, 5, 6, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 22, 24, 25, 26, 32, 33, 34, 35, 37, 38, 40, 41, 44, 45, 46, 48, 49, 50, 52, 53, 54, 64, 65, 66, 67, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 81, 82, 83, 88, 89, 91, 92, 93, 96, 97, 98, 100, 101, 102, 104
Offset: 1
Keywords
Examples
The terms together with corresponding compositions begin: 0: () 1: (1) 2: (2) 4: (3) 5: (2,1) 6: (1,2) 8: (4) 9: (3,1) 11: (2,1,1) 12: (1,3) 13: (1,2,1) 16: (5) 17: (4,1) 18: (3,2) 19: (3,1,1) 20: (2,3) 22: (2,1,2) 24: (1,4) 25: (1,3,1) 26: (1,2,2)
Links
Crossrefs
Positions of distinct (strict) rows in A374515.
Compositions of this type are counted by A374518.
The complement is A374639.
Other types of runs (instead of anti-):
A065120 gives leaders of standard compositions.
A106356 counts compositions by number of maximal anti-runs.
A238279 counts compositions by number of maximal runs
A238424 counts partitions whose first differences are an anti-run.
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