login
A385886
Irregular triangle read by rows listing the lengths of maximal anti-runs (sequences of distinct consecutive elements increasing by more than 1) of binary indices, duplicate rows removed.
10
1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 3, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 3, 2, 2, 1, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 3, 1, 2, 2, 2, 1, 2, 1, 1, 1, 1, 2, 1, 3, 1, 2, 2, 1, 1, 1, 1, 2, 1
OFFSET
0,4
COMMENTS
A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.
This is the triangle A384877, except all duplicates after the first instance of each composition are removed. It lists all compositions in order of their first appearance as a row of A384877.
EXAMPLE
The binary indices of 27 are {1,2,4,5}, with maximal anti-runs ((1),(2,4),(5)), with lengths (1,2,1). After removing duplicates, this is our row 10.
The binary indices of 53 are {1,3,5,6}, with maximal anti-runs ((1,3,5),(6)), with lengths (3,1). After removing duplicates, this is our row 16.
Triangle begins:
0: .
1: 1
2: 1 1
3: 2
4: 1 1 1
5: 1 2
6: 2 1
7: 1 1 1 1
8: 3
9: 1 1 2
10: 1 2 1
11: 2 1 1
12: 1 1 1 1 1
13: 1 3
14: 2 2
15: 1 1 1 2
16: 3 1
17: 1 1 2 1
18: 1 2 1 1
19: 2 1 1 1
20: 1 1 1 1 1 1
MATHEMATICA
DeleteDuplicates[Table[Length/@Split[Join@@Position[Reverse[IntegerDigits[n, 2]], 1], #2!=#1+1&], {n, 0, 100}]]
CROSSREFS
In the following references, "before" is short for "before removing duplicate rows".
Positions of singleton rows appear to be A001906 = A055588 - 1.
Positions of rows of the form (1,1,...) appear to be A001911-2, before A023758.
Row sums appear to be A200648, before A000120.
Row lengths appear to be A200649, before A384890.
Standard composition numbers of each row appear to be A348366.
Before we had A384877, ranks A385816, firsts A052499.
For runs instead of anti-runs we have A385817, see A245563, A245562, A246029.
Sequence in context: A357481 A062831 A037828 * A030419 A155052 A096284
KEYWORD
nonn,tabf
AUTHOR
Gus Wiseman, Jul 14 2025
STATUS
approved