A374683
Irregular triangle read by rows where row n lists the leaders of strictly increasing runs in the n-th composition in standard order.
Original entry on oeis.org
1, 2, 1, 1, 3, 2, 1, 1, 1, 1, 1, 4, 3, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 4, 1, 3, 2, 3, 1, 1, 2, 2, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6, 5, 1, 4, 2, 4, 1, 1, 3, 3, 3, 2, 1, 3, 1, 3, 1, 1, 1
Offset: 0
The maximal strictly increasing subsequences of the 1234567th composition in standard order are ((3),(2),(1,2),(2),(1,2,5),(1),(1),(1)), so row 1234567 is (3,2,1,2,1,1,1,1).
The nonnegative integers, corresponding compositions, and leaders of strictly increasing runs begin:
0: () -> () 15: (1,1,1,1) -> (1,1,1,1)
1: (1) -> (1) 16: (5) -> (5)
2: (2) -> (2) 17: (4,1) -> (4,1)
3: (1,1) -> (1,1) 18: (3,2) -> (3,2)
4: (3) -> (3) 19: (3,1,1) -> (3,1,1)
5: (2,1) -> (2,1) 20: (2,3) -> (2)
6: (1,2) -> (1) 21: (2,2,1) -> (2,2,1)
7: (1,1,1) -> (1,1,1) 22: (2,1,2) -> (2,1)
8: (4) -> (4) 23: (2,1,1,1) -> (2,1,1,1)
9: (3,1) -> (3,1) 24: (1,4) -> (1)
10: (2,2) -> (2,2) 25: (1,3,1) -> (1,1)
11: (2,1,1) -> (2,1,1) 26: (1,2,2) -> (1,2)
12: (1,3) -> (1) 27: (1,2,1,1) -> (1,1,1)
13: (1,2,1) -> (1,1) 28: (1,1,3) -> (1,1)
14: (1,1,2) -> (1,1) 29: (1,1,2,1) -> (1,1,1)
All of the following pertain to compositions in standard order:
- Ranks of non-contiguous compositions are
A374253, counted by
A335548.
-
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[First/@Split[stc[n],Less],{n,0,100}]
A374761
Number of integer compositions of n whose leaders of strictly decreasing runs are distinct.
Original entry on oeis.org
1, 1, 1, 3, 5, 7, 13, 27, 45, 73, 117, 205, 365, 631, 1061, 1711, 2777, 4599, 7657, 12855, 21409, 35059, 56721, 91149, 146161, 234981, 379277, 612825, 988781, 1587635, 2533029, 4017951, 6342853, 9985087, 15699577, 24679859, 38803005, 60979839, 95698257, 149836255
Offset: 0
The composition (3,1,4,3,2,1,2,8) has strictly decreasing runs ((3,1),(4,3,2,1),(2),(8)), with leaders (3,4,2,8), so is counted under a(24).
The a(0) = 1 through a(6) = 13 compositions:
() (1) (2) (3) (4) (5) (6)
(12) (13) (14) (15)
(21) (31) (23) (24)
(121) (32) (42)
(211) (41) (51)
(131) (123)
(311) (132)
(141)
(213)
(231)
(312)
(321)
(411)
For identical instead of distinct leaders we have
A374760, ranks
A374759.
For partitions instead of compositions we have
A375133.
Other types of runs:
- For leaders of identical runs we have
A000005 for n > 0, ranks
A272919.
Other types of run-leaders:
- For strictly increasing leaders we have
A374762.
- For strictly decreasing leaders we have
A374763.
- For weakly increasing leaders we have
A374764.
- For weakly decreasing leaders we have
A374765.
A374700 counts compositions by sum of leaders of strictly increasing runs.
Cf.
A034296,
A106356,
A188920,
A189076,
A238343,
A333213,
A374517,
A374631,
A374640,
A374686,
A374742.
-
Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],UnsameQ@@First/@Split[#,Greater]&]],{n,0,15}]
-
dfs(m, r, v) = 1 + sum(s=r, m, if(!setsearch(v, s), dfs(m-s, s, setunion(v, [s]))*x^s + sum(t=1, min(s-1, m-s), dfs(m-s-t, t, setunion(v, [s]))*x^(s+t)*prod(i=t+1, s-1, 1+x^i))));
lista(nn) = Vec(dfs(nn, 1, []) + O(x^(1+nn))); \\ Jinyuan Wang, Feb 13 2025
A374517
Number of integer compositions of n whose leaders of anti-runs are identical.
Original entry on oeis.org
1, 1, 2, 4, 7, 13, 25, 46, 85, 160, 301, 561, 1056, 1984, 3730, 7037, 13273, 25056, 47382, 89666, 169833, 322038, 611128, 1160660, 2206219, 4196730, 7988731, 15217557, 29005987, 55321015, 105570219, 201569648, 385059094, 735929616, 1407145439, 2691681402
Offset: 0
The a(0) = 1 through a(5) = 13 compositions:
() (1) (2) (3) (4) (5)
(11) (12) (13) (14)
(21) (22) (23)
(111) (31) (32)
(112) (41)
(121) (113)
(1111) (131)
(212)
(221)
(1112)
(1121)
(1211)
(11111)
These compositions have ranks
A374519.
The complement is counted by
A374640.
Other types of runs (instead of anti-):
- For leaders of identical runs we have
A000005 for n > 0, ranks
A272919.
- For leaders of weakly increasing runs we have
A374631, ranks
A374633.
- For leaders of strictly increasing runs we have
A374686, ranks
A374685.
- For leaders of weakly decreasing runs we have
A374742, ranks
A374741.
- For leaders of strictly decreasing runs we have
A374760, ranks
A374759.
Other types of run-leaders (instead of identical):
- For distinct leaders we have
A374518.
- For weakly increasing leaders we have
A374681.
- For strictly increasing leaders we have
A374679.
- For weakly decreasing leaders we have
A374682.
- For strictly decreasing leaders we have
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.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],SameQ@@First/@Split[#,UnsameQ]&]],{n,0,15}]
-
C_x(N) = {my(g =1/(1 - sum(k=1, N, x^k/(1+x^k))));g}
A_x(i,N) = {my(x='x+O('x^N), f=(x^i)*(C_x(N)*(x^i)+x^i+1)/(1+x^i)^2);f}
B_x(i,j,N) = {my(x='x+O('x^N), f=C_x(N)*x^(i+j)/((1+x^i)*(1+x^j)));f}
D_x(N) = {my(x='x+O('x^N), f=1+sum(i=1,N,-1+sum(j=0,N-i, A_x(i,N)^j)*(1-B_x(i,i,N)+sum(k=1,N-i,B_x(i,k,N)))));Vec(f)}
D_x(30) \\ John Tyler Rascoe, Aug 16 2024
A374687
Number of integer compositions of n whose leaders of strictly increasing runs are distinct.
Original entry on oeis.org
1, 1, 1, 3, 3, 7, 11, 15, 27, 45, 65, 101, 161, 251, 381, 573, 865, 1321, 1975, 2965, 4387, 6467, 9579, 14091, 20669, 30135, 43869, 63531, 91831, 132575, 190567, 273209, 390659, 557069, 792371, 1124381, 1591977, 2249029, 3169993, 4458163, 6256201, 8762251, 12246541
Offset: 0
The a(0) = 1 through a(7) = 15 compositions:
() (1) (2) (3) (4) (5) (6) (7)
(12) (13) (14) (15) (16)
(21) (31) (23) (24) (25)
(32) (42) (34)
(41) (51) (43)
(122) (123) (52)
(212) (132) (61)
(213) (124)
(231) (133)
(312) (142)
(321) (214)
(241)
(313)
(412)
(421)
Types of runs (instead of strictly increasing):
- For leaders of identical runs we have
A274174 for n > 0, ranks
A374249.
- For leaders of weakly increasing runs we have
A374632, ranks
A374768.
- For leaders of weakly decreasing runs we have
A374743, ranks
A374701.
- For leaders of strictly decreasing runs we have
A374761, ranks
A374767.
Types of run-leaders (instead of distinct):
- For strictly increasing leaders we have
A374688.
- For strictly decreasing leaders we have
A374689.
- For weakly increasing leaders we have
A374690.
- For weakly decreasing leaders we have
A374697.
A335456 counts patterns matched by compositions.
A374683 lists leaders of strictly increasing runs of standard compositions.
A374700 counts compositions by sum of leaders of strictly increasing runs.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],UnsameQ@@First/@Split[#,Less]&]],{n,0,15}]
-
dfs(m, r, v) = 1 + sum(s=1, min(m, r), if(!setsearch(v, s), dfs(m-s, s, setunion(v, [s]))*x^s + sum(t=s+1, m-s, dfs(m-s-t, t, setunion(v, [s]))*x^(s+t)*prod(i=s+1, t-1, 1+x^i))));
lista(nn) = Vec(dfs(nn, nn, []) + O(x^(1+nn))); \\ Jinyuan Wang, Feb 13 2025
A374631
Number of integer compositions of n whose leaders of weakly increasing runs are identical.
Original entry on oeis.org
1, 1, 2, 3, 6, 10, 19, 34, 63, 116, 218, 405, 763, 1436, 2714, 5127, 9718, 18422, 34968, 66397, 126168, 239820, 456027, 867325, 1649970, 3139288, 5973746, 11368487, 21636909, 41182648, 78389204, 149216039, 284046349, 540722066, 1029362133, 1959609449
Offset: 0
The composition (1,3,1,4,1,2,2,1) has maximal weakly increasing subsequences ((1,3),(1,4),(1,2,2),(1)), with leaders (1,1,1,1), so is counted under a(15).
The a(0) = 1 through a(6) = 19 compositions:
() (1) (2) (3) (4) (5) (6)
(11) (12) (13) (14) (15)
(111) (22) (23) (24)
(112) (113) (33)
(121) (122) (114)
(1111) (131) (123)
(1112) (141)
(1121) (222)
(1211) (1113)
(11111) (1122)
(1131)
(1212)
(1221)
(1311)
(11112)
(11121)
(11211)
(12111)
(111111)
Types of runs (instead of weakly increasing):
- For leaders of identical runs we have
A000005 for n > 0, ranks
A272919.
- For leaders of strictly increasing runs we have
A374686, ranks
A374685.
- For leaders of weakly decreasing runs we have
A374742, ranks
A374744.
- For leaders of strictly decreasing runs we have
A374760, ranks
A374759.
Types of run-leaders (instead of identical):
- For strictly decreasing leaders we appear to have
A188920.
- For weakly decreasing leaders we appear to have
A189076.
- For strictly increasing leaders we have
A374634.
- For weakly increasing leaders we have
A374635.
A003242 counts anti-run compositions.
A335456 counts patterns matched by compositions.
A374637 counts compositions by sum of leaders of weakly increasing runs.
Cf.
A000009,
A106356,
A124766,
A238343,
A261982,
A333213,
A373949,
A374518,
A374687,
A374743,
A374761.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],SameQ@@First/@Split[#,LessEqual]&]],{n,0,15}]
-
C_x(N) = {my(x='x+O('x^N), h=1+sum(i=1,N, 1/(1-x^i)*(x^i+sum(z=1,N-i+1, (x^i/(1-x^i)*(-1+(1/prod(j=i+1,N-i,1-x^j))))^z)))); Vec(h)}
C_x(40) \\ John Tyler Rascoe, Jul 25 2024
A374742
Number of integer compositions of n whose leaders of weakly decreasing runs are identical.
Original entry on oeis.org
1, 1, 2, 3, 5, 8, 13, 21, 34, 54, 87, 138, 220, 349, 556, 881, 1403, 2229, 3551, 5653, 9019, 14387, 22988, 36739, 58785, 94100, 150765, 241658, 387617, 622002, 998658, 1604032, 2577512, 4143243, 6662520, 10716931, 17243904, 27753518, 44680121, 71947123, 115880662
Offset: 0
The composition (3,1,3,2,1,3,3) has maximal weakly decreasing subsequences ((3,1),(3,2,1),(3,3)), with leaders (3,3,3), so is counted under a(16).
The a(0) = 1 through a(6) = 13 compositions:
() (1) (2) (3) (4) (5) (6)
(11) (21) (22) (32) (33)
(111) (31) (41) (42)
(211) (212) (51)
(1111) (221) (222)
(311) (321)
(2111) (411)
(11111) (2112)
(2121)
(2211)
(3111)
(21111)
(111111)
Types of runs (instead of weakly decreasing):
- For leaders of identical runs we have
A000005 for n > 0, ranks
A272919.
- For leaders of strictly increasing runs we have
A374686, ranks
A374685.
- For leaders of weakly increasing runs we have
A374631, ranks
A374633.
- For leaders of strictly decreasing runs we have
A374760, ranks
A374759.
Types of run-leaders (instead of identical):
- For strictly decreasing leaders we have
A374746.
- For weakly decreasing leaders we have
A374747.
- For weakly increasing leaders we appear to have
A188900.
A335456 counts patterns matched by compositions.
A374748 counts compositions by sum of leaders of weakly decreasing runs.
Cf.
A000009,
A106356,
A188920,
A189076,
A238343,
A261982,
A333213,
A374632,
A374634,
A374635,
A374741.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],SameQ@@First/@Split[#,GreaterEqual]&]],{n,0,15}]
-
B(i) = x^i/(1-x^i) * sum(j=1,i-1, x^j*prod(k=1,j, (1-x^k)^(-1)))
A_x(N) = {my(x='x+O('x^N)); Vec(1+sum(i=1,N,-1+(1+x^i/(1-x^i))/(1-B(i))))}
A_x(30) \\ John Tyler Rascoe, Apr 29 2025
A374685
Numbers k such that the leaders of strictly increasing runs in the k-th composition in standard order are identical.
Original entry on oeis.org
0, 1, 2, 3, 4, 6, 7, 8, 10, 12, 13, 14, 15, 16, 20, 24, 25, 27, 28, 29, 30, 31, 32, 36, 40, 42, 48, 49, 51, 52, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 72, 80, 82, 84, 96, 97, 99, 102, 103, 104, 105, 108, 109, 110, 111, 112, 113, 115, 116, 118, 119, 120, 121
Offset: 1
The maximal strictly increasing subsequences of the 6560th composition in standard order are ((1,3),(1,2,6)), with leaders (1,1), so 6560 is in the sequence.
The terms together with corresponding compositions begin:
0: ()
1: (1)
2: (2)
3: (1,1)
4: (3)
6: (1,2)
7: (1,1,1)
8: (4)
10: (2,2)
12: (1,3)
13: (1,2,1)
14: (1,1,2)
15: (1,1,1,1)
16: (5)
20: (2,3)
24: (1,4)
25: (1,3,1)
27: (1,2,1,1)
28: (1,1,3)
29: (1,1,2,1)
30: (1,1,1,2)
31: (1,1,1,1,1)
Positions of constant rows in
A374683.
Compositions of this type are counted by
A374686.
A374748 counts compositions by sum of leaders of weakly decreasing runs.
All of the following pertain to compositions in standard order:
Cf.
A065120,
A106356,
A238343,
A333213,
A373949,
A374520,
A374629,
A374630,
A374701,
A374740,
A374768.
-
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],SameQ@@First/@Split[stc[#],Less]&]
A374519
Numbers k such that the leaders of anti-runs in the k-th composition in standard order (A066099) are identical.
Original entry on oeis.org
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 20, 21, 22, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 40, 41, 42, 44, 45, 48, 49, 50, 51, 52, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 68, 69, 70, 72, 73, 76, 77, 80, 81, 82, 84, 85
Offset: 1
The 346th composition in standard order is (2,2,1,2,2), with anti-runs ((2),(2,1,2),(2)), with leaders (2,2,2), so 346 is in the sequence.
Positions of constant rows in
A374515.
Compositions of this type are counted by
A374517.
For distinct instead of identical leaders we have
A374638, counted by
A374518.
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:
Six types of maximal runs:
-
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],SameQ@@First/@Split[stc[#],UnsameQ]&]
A374633
Numbers k such that the leaders of weakly increasing runs in the k-th composition in standard order (A066099) are identical.
Original entry on oeis.org
0, 1, 2, 3, 4, 6, 7, 8, 10, 12, 13, 14, 15, 16, 20, 24, 25, 26, 27, 28, 29, 30, 31, 32, 36, 40, 42, 48, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 72, 80, 82, 84, 96, 97, 99, 100, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 115
Offset: 1
The maximal weakly increasing subsequences of the 26165th composition in standard order are ((1,3),(1,4),(1,2,2),(1)), with leaders (1,1,1,1), so 26165 is in the sequence.
The sequence together with the corresponding compositions begins:
0: ()
1: (1)
2: (2)
3: (1,1)
4: (3)
6: (1,2)
7: (1,1,1)
8: (4)
10: (2,2)
12: (1,3)
13: (1,2,1)
14: (1,1,2)
15: (1,1,1,1)
16: (5)
20: (2,3)
24: (1,4)
25: (1,3,1)
26: (1,2,2)
27: (1,2,1,1)
For strictly decreasing leaders we appear to have
A188920.
For weakly decreasing leaders we appear to have
A189076.
Compositions of this type are counted by
A374631.
For strictly increasing leaders see
A374634.
A374637 counts compositions by sum of leaders of weakly 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],SameQ@@First/@Split[stc[#],LessEqual]&]
A374760
Number of integer compositions of n whose leaders of strictly decreasing runs are identical.
Original entry on oeis.org
1, 1, 2, 3, 4, 6, 8, 11, 15, 21, 28, 38, 52, 70, 95, 129, 173, 234, 318, 428, 579, 784, 1059, 1433, 1942, 2630, 3564, 4835, 6559, 8902, 12094, 16432, 22340, 30392, 41356, 56304, 76692, 104499, 142448, 194264, 265015, 361664, 493749, 674278, 921113, 1258717
Offset: 0
The composition (3,3,2,1,3,2,1) has strictly decreasing runs ((3),(3,2,1),(3,2,1)), with leaders (3,3,3), so is counted under a(15).
The a(0) = 1 through a(8) = 15 compositions:
() (1) (2) (3) (4) (5) (6) (7) (8)
(11) (21) (22) (32) (33) (43) (44)
(111) (31) (41) (42) (52) (53)
(1111) (212) (51) (61) (62)
(221) (222) (313) (71)
(11111) (321) (331) (323)
(2121) (421) (332)
(111111) (2122) (431)
(2212) (521)
(2221) (2222)
(1111111) (3131)
(21212)
(21221)
(22121)
(11111111)
For partitions instead of compositions we have
A034296.
Other types of runs (instead of strictly decreasing):
- For leaders of identical runs we have
A000005 for n > 0, ranks
A272919.
Other types of run-leaders (instead of identical):
- For strictly increasing leaders we have
A374762.
- For strictly decreasing leaders we have
A374763.
- For weakly increasing leaders we have
A374764.
- For weakly decreasing leaders we have
A374765.
Cf.
A000009,
A106356,
A188920,
A189076,
A238343,
A261982,
A333213,
A374632,
A374634,
A374635,
A374640,
A374761.
-
Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],SameQ@@First/@Split[#,Greater]&]],{n,0,15}]
-
seq(n) = Vec(1 + sum(k=1, n, 1/(1 - x^k*prod(j=1, min(n-k,k-1), 1 + x^j, 1 + O(x^(n-k+1))))-1)) \\ Andrew Howroyd, Jul 31 2024
Showing 1-10 of 22 results.
Comments