A353431
Numbers k such that the k-th composition in standard order is empty, a singleton, or has its own run-lengths as a subsequence (not necessarily consecutive) that is already counted.
Original entry on oeis.org
0, 1, 2, 4, 8, 10, 16, 32, 43, 58, 64, 128, 256, 292, 349, 442, 512, 586, 676, 697, 826, 1024, 1210, 1338, 1393, 1394, 1396, 1594, 2048, 2186, 2234, 2618, 2696, 2785, 2786, 2792, 3130, 4096, 4282, 4410, 4666, 5178, 5569, 5570, 5572, 5576, 5584, 6202, 8192
Offset: 1
The initial terms, their binary expansions, and the corresponding standard compositions:
0: 0 ()
1: 1 (1)
2: 10 (2)
4: 100 (3)
8: 1000 (4)
10: 1010 (2,2)
16: 10000 (5)
32: 100000 (6)
43: 101011 (2,2,1,1)
58: 111010 (1,1,2,2)
64: 1000000 (7)
128: 10000000 (8)
256: 100000000 (9)
292: 100100100 (3,3,3)
349: 101011101 (2,2,1,1,2,1)
442: 110111010 (1,2,1,1,2,2)
512: 1000000000 (10)
586: 1001001010 (3,3,2,2)
676: 1010100100 (2,2,3,3)
697: 1010111001 (2,2,1,1,3,1)
The non-recursive version for partitions is
A325755, counted by
A325702.
These compositions are counted by
A353391.
A005811 counts runs in binary expansion.
Statistics of standard compositions:
Classes of standard compositions:
Cf.
A032020,
A044813,
A114640,
A165413,
A181819,
A329739,
A318928,
A325705,
A333224,
A353427,
A353403.
-
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rorQ[y_]:=Length[y]<=1||MemberQ[Subsets[y],Length/@Split[y]]&& rorQ[Length/@Split[y]];
Select[Range[0,100],rorQ[stc[#]]&]
A353432
Numbers k such that the k-th composition in standard order has its own run-lengths as a consecutive subsequence.
Original entry on oeis.org
0, 1, 10, 21, 26, 43, 58, 107, 117, 174, 186, 292, 314, 346, 348, 349, 373, 430, 442, 570, 585, 586, 629, 676, 696, 697, 804, 826, 860, 861, 885, 1082, 1141, 1173, 1210, 1338, 1387, 1392, 1393, 1394, 1396, 1594, 1653, 1700, 1720, 1721, 1882, 2106, 2165, 2186
Offset: 1
The initial terms, their binary expansions, and the corresponding standard compositions:
0: 0 ()
1: 1 (1)
10: 1010 (2,2)
21: 10101 (2,2,1)
26: 11010 (1,2,2)
43: 101011 (2,2,1,1)
58: 111010 (1,1,2,2)
107: 1101011 (1,2,2,1,1)
117: 1110101 (1,1,2,2,1)
174: 10101110 (2,2,1,1,2)
186: 10111010 (2,1,1,2,2)
292: 100100100 (3,3,3)
314: 100111010 (3,1,1,2,2)
346: 101011010 (2,2,1,2,2)
348: 101011100 (2,2,1,1,3)
349: 101011101 (2,2,1,1,2,1)
373: 101110101 (2,1,1,2,2,1)
430: 110101110 (1,2,2,1,1,2)
442: 110111010 (1,2,1,1,2,2)
These compositions are counted by
A353392.
A005811 counts runs in binary expansion.
Statistics of standard compositions:
Classes of standard compositions:
Cf.
A044813,
A165413,
A181819,
A318928,
A325702,
A325705,
A325755,
A333224,
A333755,
A353389,
A353393,
A353403.
-
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
rorQ[y_]:=Length[y]==0||MemberQ[Join@@Table[Take[y,{i,j}],{i,Length[y]},{j,i,Length[y]}],Length/@Split[y]];
Select[Range[0,10000],rorQ[stc[#]]&]
Showing 1-2 of 2 results.
Comments