A375295
Numbers k such that the leaders of maximal weakly increasing runs in the k-th composition in standard order (row k of A066099) are not strictly decreasing.
Original entry on oeis.org
13, 25, 27, 29, 45, 49, 50, 51, 53, 54, 55, 57, 59, 61, 77, 82, 89, 91, 93, 97, 98, 99, 101, 102, 103, 105, 107, 108, 109, 110, 111, 113, 114, 115, 117, 118, 119, 121, 123, 125, 141, 153, 155, 157, 162, 165, 173, 177, 178, 179, 181, 182, 183, 185, 187, 189
Offset: 1
The sequence together with corresponding compositions begins:
13: (1,2,1)
25: (1,3,1)
27: (1,2,1,1)
29: (1,1,2,1)
45: (2,1,2,1)
49: (1,4,1)
50: (1,3,2)
51: (1,3,1,1)
53: (1,2,2,1)
54: (1,2,1,2)
55: (1,2,1,1,1)
57: (1,1,3,1)
59: (1,1,2,1,1)
61: (1,1,1,2,1)
77: (3,1,2,1)
82: (2,3,2)
89: (2,1,3,1)
91: (2,1,2,1,1)
93: (2,1,1,2,1)
For leaders of identical runs we have
A335485.
A374637 counts compositions by sum of leaders of weakly increasing runs.
All of the following pertain to compositions in standard order:
- Constant compositions are
A272919.
Cf.
A056823,
A106356,
A188919,
A189076,
A238343,
A261982,
A333213,
A335480,
A335482,
A373948,
A374746,
A374768,
A375123.
-
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!Greater@@First/@Split[stc[#],LessEqual]&]
- or -
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],MatchQ[stc[#],{_,x_,_,z_,y_,_}/;x<=y
A375296
Numbers k such that the leaders of maximal weakly increasing runs in the reverse of the k-th composition in standard order (row k of A228351) are not strictly decreasing.
Original entry on oeis.org
13, 25, 27, 29, 41, 45, 49, 51, 53, 54, 55, 57, 59, 61, 77, 81, 82, 83, 89, 91, 93, 97, 99, 101, 102, 103, 105, 107, 108, 109, 110, 111, 113, 115, 117, 118, 119, 121, 123, 125, 141, 145, 153, 155, 157, 161, 162, 163, 165, 166, 167, 169, 173, 177, 179, 181, 182
Offset: 1
The sequence together with corresponding compositions begins:
13: (1,2,1)
25: (1,3,1)
27: (1,2,1,1)
29: (1,1,2,1)
41: (2,3,1)
45: (2,1,2,1)
49: (1,4,1)
51: (1,3,1,1)
53: (1,2,2,1)
54: (1,2,1,2)
55: (1,2,1,1,1)
57: (1,1,3,1)
59: (1,1,2,1,1)
61: (1,1,1,2,1)
A374637 counts compositions by sum of leaders of weakly increasing runs.
All of the following pertain to compositions in standard order:
- Constant compositions are
A272919.
Cf.
A056823,
A106356,
A188919,
A189076,
A238343,
A333213,
A335480,
A335482,
A373948,
A374630,
A374633,
A374768,
A375123.
-
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!Greater@@First/@Split[Reverse[stc[#]],LessEqual]&]
- or -
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,300],MatchQ[stc[#],{_,y_,z_,_,x_,_}/;x<=y
A374699
Number of integer compositions of n whose leaders of maximal anti-runs are not weakly decreasing.
Original entry on oeis.org
0, 0, 0, 0, 0, 1, 2, 5, 14, 34, 78, 180, 407, 907, 2000, 4364, 9448, 20323, 43448, 92400, 195604, 412355, 866085, 1813035, 3783895, 7875552
Offset: 0
The a(0) = 0 through a(8) = 14 compositions:
. . . . . (122) (1122) (133) (233)
(1221) (1222) (1133)
(11122) (1223)
(11221) (1322)
(12211) (1331)
(11222)
(12122)
(12212)
(12221)
(21122)
(111122)
(111221)
(112211)
(122111)
The complement is counted by
A374682.
Other types of runs (instead of anti-):
- For leaders of identical runs we have
A056823.
- For leaders of weakly increasing runs we have
A374636, complement
A189076?
- For leaders of strictly increasing runs:
A375135, complement
A374697.
Other types of run-leaders (instead of weakly decreasing):
- For weakly increasing leaders we have complement
A374681.
- For strictly increasing leaders we have complement complement
A374679.
- For strictly decreasing leaders we have complement
A374680.
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.
A333381 counts maximal anti-runs in standard compositions.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],!GreaterEqual@@First/@Split[#,UnsameQ]&]],{n,0,15}]
A375139
Numbers k such that the leaders of strictly increasing runs in the k-th composition in standard order are not weakly decreasing.
Original entry on oeis.org
26, 50, 53, 58, 90, 98, 100, 101, 106, 107, 114, 117, 122, 154, 164, 178, 181, 186, 194, 196, 197, 201, 202, 203, 210, 212, 213, 214, 215, 218, 226, 228, 229, 234, 235, 242, 245, 250, 282, 306, 309, 314, 324, 329, 346, 354, 356, 357, 362, 363, 370, 373, 378
Offset: 1
The terms together with corresponding compositions begin:
26: (1,2,2)
50: (1,3,2)
53: (1,2,2,1)
58: (1,1,2,2)
90: (2,1,2,2)
98: (1,4,2)
100: (1,3,3)
101: (1,3,2,1)
106: (1,2,2,2)
107: (1,2,2,1,1)
114: (1,1,3,2)
117: (1,1,2,2,1)
122: (1,1,1,2,2)
154: (3,1,2,2)
164: (2,3,3)
178: (2,1,3,2)
181: (2,1,2,2,1)
186: (2,1,1,2,2)
For leaders of identical runs we have
A335485.
Ranked by positions of non-weakly decreasing rows in
A374683.
The complement is counted by
A374697.
Compositions of this type are counted by
A375135.
A374700 counts compositions by sum of leaders of strictly increasing runs.
All of the following pertain to compositions in standard order:
-
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!GreaterEqual@@First/@Split[stc[#],Less]&]
A375297
Number of integer compositions of n matching both of the dashed patterns 23-1 and 1-32.
Original entry on oeis.org
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 6, 21, 68, 199, 545, 1410, 3530, 8557, 20255, 46968, 107135, 240927, 535379, 1177435, 2566618, 5551456
Offset: 0
The a(0) = 0 through a(11) = 21 compositions:
. . . . . . . . . (12321) (1342) (1352)
(2431) (2531)
(12421) (11342)
(13231) (12431)
(112321) (12521)
(123211) (13241)
(13421)
(14231)
(23132)
(24311)
(112421)
(113231)
(122321)
(123212)
(123221)
(124211)
(132311)
(212321)
(1112321)
(1123211)
(1232111)
For leaders of identical runs we have
A332834.
These compositions are ranked by
A375407.
A106356 counts compositions by number of maximal anti-runs.
A335456 counts patterns matched by compositions.
Cf.
A000041,
A056823,
A188920,
A189076,
A238343,
A333213,
A335514,
A374631,
A374632,
A374635,
A374681.
-
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], MatchQ[#,{_,y_,z_,_,x_,_}/;x_,x_,_,z_,y_,_}/;x
Comments