A188920
a(n) is the limiting term of the n-th column of the triangle in A188919.
Original entry on oeis.org
1, 1, 2, 4, 7, 13, 22, 38, 63, 105, 169, 274, 434, 686, 1069, 1660, 2548, 3897, 5906, 8911, 13352, 19917, 29532, 43605, 64056, 93715, 136499, 198059, 286233, 412199, 591455, 845851, 1205687, 1713286, 2427177, 3428611, 4829563, 6784550, 9505840, 13284849
Offset: 0
From _Gus Wiseman_, Aug 20 2024: (Start)
The a(0) = 1 through a(6) = 22 compositions:
() (1) (2) (3) (4) (5) (6)
(11) (12) (13) (14) (15)
(21) (22) (23) (24)
(111) (31) (32) (33)
(112) (41) (42)
(211) (113) (51)
(1111) (122) (114)
(212) (123)
(221) (132)
(311) (213)
(1112) (222)
(2111) (312)
(11111) (321)
(411)
(1113)
(1122)
(2112)
(2211)
(3111)
(11112)
(21111)
(111111)
(End)
- John Tyler Rascoe, Table of n, a(n) for n = 0..200
- A. M. Baxter, Algorithms for Permutation Statistics, Ph. D. Dissertation, Rutgers University, May 2011.
- Andrew M. Baxter and Lara K. Pudwell, Enumeration schemes for dashed patterns, arXiv preprint arXiv:1108.2642 [math.CO], 2011-2012.
- Wikipedia, Permutation pattern.
- Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).
For leaders of identical runs we have
A000041.
For weakly increasing leaders we have
A374635.
For leaders of anti-runs we have
A374680.
For leaders of strictly increasing runs we have
A374689.
-
b[u_, o_] := b[u, o] = Expand[If[u + o == 0, 1, Sum[b[u - j, o + j - 1]*x^(o + j - 1), {j, 1, u}] + Sum[If[u == 0, b[u + j - 1, o - j]*x^(o - j), 0], {j, 1, o}]]];
T[n_] := Function[p, Table[Coefficient[p, x, i], {i, 0, Exponent[p, x]}]][ b[0, n]];
Take[T[40], 40] (* Jean-François Alcover, Sep 15 2018, after Alois P. Heinz in A188919 *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], Greater@@First/@Split[Reverse[#],LessEqual]&]],{n,0,15}] (* Gus Wiseman, Aug 20 2024 *)
- or -
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], !MatchQ[#,{_,y_,z_,_,x_,_}/;x<=yGus Wiseman, Aug 20 2024 *)
-
B_x(i,N) = {my(x='x+O('x^N), f=(x^i)/(1-x^i)*prod(j=i+1,N-i,1/(1-x^j))); f}
A_x(N) = {my(x='x+O('x^N), f=1+sum(i=1,N, B_x(i,N)*prod(j=1,i-1,1+B_x(j,N)))); Vec(f)}
A_x(60) \\ John Tyler Rascoe, Aug 23 2024
A374518
Number of integer compositions of n whose leaders of anti-runs are distinct.
Original entry on oeis.org
1, 1, 1, 3, 5, 9, 17, 32, 58, 112, 201, 371, 694, 1276, 2342, 4330, 7958, 14613, 26866, 49303, 90369, 165646, 303342, 555056, 1015069, 1855230
Offset: 0
The a(0) = 1 through a(6) = 17 compositions:
() (1) (2) (3) (4) (5) (6)
(12) (13) (14) (15)
(21) (31) (23) (24)
(121) (32) (42)
(211) (41) (51)
(122) (123)
(131) (132)
(212) (141)
(311) (213)
(231)
(312)
(321)
(411)
(1212)
(1221)
(2112)
(2121)
These compositions have ranks
A374638.
The complement is counted by
A374678.
For partitions instead of compositions we have
A375133.
Other types of runs (instead of anti-):
- For leaders of weakly increasing runs we have
A374632, ranks
A374768.
- For leaders of strictly increasing runs we have
A374687, ranks
A374698.
- For leaders of weakly decreasing runs we have
A374743, ranks
A374701.
- For leaders of strictly decreasing runs we have
A374761, ranks
A374767.
Other types of run-leaders (instead of distinct):
- For identical leaders we have
A374517.
- 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],UnsameQ@@First/@Split[#,UnsameQ]&]],{n,0,15}]
A358836
Number of multiset partitions of integer partitions of n with all distinct block sizes.
Original entry on oeis.org
1, 1, 2, 4, 8, 15, 28, 51, 92, 164, 289, 504, 871, 1493, 2539, 4290, 7201, 12017, 19939, 32911, 54044, 88330, 143709, 232817, 375640, 603755, 966816, 1542776, 2453536, 3889338, 6146126, 9683279, 15211881, 23830271, 37230720, 58015116, 90174847, 139820368, 216286593
Offset: 0
The a(1) = 1 through a(5) = 15 multiset partitions:
{1} {2} {3} {4} {5}
{1,1} {1,2} {1,3} {1,4}
{1,1,1} {2,2} {2,3}
{1},{1,1} {1,1,2} {1,1,3}
{1,1,1,1} {1,2,2}
{1},{1,2} {1,1,1,2}
{2},{1,1} {1},{1,3}
{1},{1,1,1} {1},{2,2}
{2},{1,2}
{3},{1,1}
{1,1,1,1,1}
{1},{1,1,2}
{2},{1,1,1}
{1},{1,1,1,1}
{1,1},{1,1,1}
From _Gus Wiseman_, Aug 21 2024: (Start)
The a(0) = 1 through a(5) = 15 compositions whose leaders of maximal weakly decreasing runs are strictly increasing:
() (1) (2) (3) (4) (5)
(11) (12) (13) (14)
(21) (22) (23)
(111) (31) (32)
(112) (41)
(121) (113)
(211) (122)
(1111) (131)
(221)
(311)
(1112)
(1121)
(1211)
(2111)
(11111)
(End)
The version for set partitions is
A007837.
For sums instead of sizes we have
A271619.
For constant instead of distinct sizes we have
A319066.
These multiset partitions are ranked by
A326533.
For odd instead of distinct sizes we have
A356932.
The version for twice-partitions is
A358830.
The case of distinct sums also is
A358832.
Ranked by positions of strictly increasing rows in
A374740, opposite
A374629.
A001970 counts multiset partitions of integer partitions.
A335456 counts patterns matched by compositions.
-
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Length[Select[Join@@mps/@IntegerPartitions[n],UnsameQ@@Length/@#&]],{n,0,10}]
(* second program *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], Less@@First/@Split[#,GreaterEqual]&]],{n,0,15}] (* Gus Wiseman, Aug 21 2024 *)
-
P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(g=P(n,y)); Vec(prod(k=1, n, 1 + polcoef(g, k, y) + O(x*x^n)))} \\ Andrew Howroyd, Dec 31 2022
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
A374634
Number of integer compositions of n whose leaders of weakly increasing runs are strictly increasing.
Original entry on oeis.org
1, 1, 2, 3, 5, 7, 12, 17, 28, 43, 67, 103, 162, 245, 374, 569, 854, 1278, 1902, 2816, 4148, 6087, 8881, 12926, 18726, 27042, 38894, 55789, 79733, 113632, 161426, 228696, 323049, 455135, 639479, 896249, 1252905, 1747327, 2431035, 3374603, 4673880, 6459435, 8908173
Offset: 0
The composition (1,3,3,2,4,3) has weakly increasing runs ((1,3,3),(2,4),(3)), with leaders (1,2,3), so is counted under a(16).
The a(0) = 1 through a(7) = 17 compositions:
() (1) (2) (3) (4) (5) (6) (7)
(11) (12) (13) (14) (15) (16)
(111) (22) (23) (24) (25)
(112) (113) (33) (34)
(1111) (122) (114) (115)
(1112) (123) (124)
(11111) (132) (133)
(222) (142)
(1113) (223)
(1122) (1114)
(11112) (1123)
(111111) (1132)
(1222)
(11113)
(11122)
(111112)
(1111111)
Ranked by positions of strictly increasing rows in
A374629 (sums
A374630).
Types of runs (instead of weakly increasing):
- For leaders of constant runs we have
A000041.
- For leaders of anti-runs we have
A374679.
- For leaders of strictly increasing runs we have
A374688.
- For leaders of strictly decreasing runs we have
A374762.
Types of run-leaders (instead of strictly increasing):
- For strictly decreasing leaders we appear to have
A188920.
- For weakly decreasing leaders we appear to have
A189076.
- For identical leaders we have
A374631.
- 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.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Less@@First/@Split[#,LessEqual]&]],{n,0,15}]
-
dfs(m, r, u) = 1 + sum(s=u+1, min(m, r-1), x^s/(1-x^s) + sum(t=s+1, m-s, dfs(m-s-t, t, s)*x^(s+t)/prod(i=s, t, 1-x^i)));
lista(nn) = Vec(dfs(nn, nn+1, 0) + O(x^(1+nn))); \\ Jinyuan Wang, Feb 13 2025
A188900
Number of compositions of n that avoid the pattern 12-3.
Original entry on oeis.org
1, 1, 2, 4, 8, 16, 31, 60, 114, 215, 402, 746, 1375, 2520, 4593, 8329, 15036, 27027, 48389, 86314, 153432, 271853, 480207, 845804, 1485703, 2603018, 4549521, 7933239, 13803293, 23966682, 41530721, 71830198, 124010381, 213725823, 367736268, 631723139, 1083568861
Offset: 0
The initial terms are too dense, but see A375406 for the complement. - _Gus Wiseman_, Aug 21 2024
The non-ranks are a subset of
A335479 and do not include 404, 788, 809, ...
The complement is counted by
A375406.
A335456 counts patterns matched by compositions.
Cf.
A106356,
A188920,
A238343,
A261982,
A333175,
A333213,
A374630,
A374679,
A374688,
A374740,
A374741.
-
with(PolynomialTools):n:=20:taypoly:=taylor(mul(1/(1 - x^i/mul(1-x^j,j=1..i-1)),i=1..n),x=0,n+1):seq(coeff(taypoly,x,m),m=0..n);
-
m = 35;
Product[1/(1 - x^i/Product[1 - x^j, {j, 1, i - 1}]), {i, 1, m}] + O[x]^m // CoefficientList[#, x]& (* Jean-François Alcover, Mar 31 2020 *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], LessEqual@@First/@Split[#,GreaterEqual]&]],{n,0,15}] (* Gus Wiseman, Aug 21 2024 *)
A374689
Number of integer compositions of n whose leaders of strictly increasing runs are strictly decreasing.
Original entry on oeis.org
1, 1, 1, 3, 3, 6, 10, 13, 21, 32, 48, 66, 101, 144, 207, 298, 415, 592, 833, 1163, 1615, 2247, 3088, 4259, 5845, 7977, 10862, 14752, 19969, 26941, 36310, 48725, 65279, 87228, 116274, 154660, 205305, 271879, 359400, 474157, 624257, 820450, 1076357, 1409598
Offset: 0
The a(0) = 1 through a(8) = 21 compositions:
() (1) (2) (3) (4) (5) (6) (7) (8)
(12) (13) (14) (15) (16) (17)
(21) (31) (23) (24) (25) (26)
(32) (42) (34) (35)
(41) (51) (43) (53)
(212) (123) (52) (62)
(213) (61) (71)
(231) (124) (125)
(312) (214) (134)
(321) (241) (215)
(313) (251)
(412) (314)
(421) (323)
(341)
(413)
(431)
(512)
(521)
(2123)
(2312)
(3212)
The weak version appears to be
A189076.
Ranked by positions of strictly decreasing rows in
A374683.
Types of runs (instead of strictly increasing):
- For leaders of identical runs we have
A000041.
- For leaders of anti-runs we have
A374680.
- For leaders of weakly increasing runs we have
A188920.
- For leaders of weakly decreasing runs we have
A374746.
- For leaders of strictly decreasing runs we have
A374763.
Types of run-leaders (instead of strictly decreasing):
- For strictly increasing leaders we have
A374688.
- For weakly increasing leaders we have
A374690.
- For weakly decreasing leaders we have
A374697.
A335456 counts patterns matched by compositions.
A374700 counts compositions by sum of leaders of strictly increasing runs.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Greater@@First/@Split[#,Less]&]],{n,0,15}]
-
C_x(N) = {my(x='x+O('x^N), h=prod(i=1,N, 1+(x^i)*prod(j=i+1,N, 1+x^j))); Vec(h)}
C_x(50) \\ John Tyler Rascoe, Jul 29 2024
A374688
Number of integer compositions of n whose leaders of strictly increasing runs are themselves strictly increasing.
Original entry on oeis.org
1, 1, 1, 2, 2, 4, 5, 7, 11, 16, 21, 31, 45, 63, 87, 122, 170, 238, 328, 449, 616, 844, 1151, 1565, 2121, 2861, 3855, 5183, 6953, 9299, 12407, 16513, 21935, 29078, 38468, 50793, 66935, 88037, 115577, 151473, 198175, 258852, 337560, 439507, 571355, 741631
Offset: 0
The a(0) = 1 through a(9) = 16 compositions:
() (1) (2) (3) (4) (5) (6) (7) (8) (9)
(12) (13) (14) (15) (16) (17) (18)
(23) (24) (25) (26) (27)
(122) (123) (34) (35) (36)
(132) (124) (125) (45)
(133) (134) (126)
(142) (143) (135)
(152) (144)
(233) (153)
(1223) (162)
(1232) (234)
(243)
(1224)
(1233)
(1242)
(1323)
Ranked by positions of strictly increasing rows in
A374683 (sums
A374684).
Types of runs (instead of strictly increasing):
- For leaders of identical runs we have
A000041.
- For leaders of anti-runs we have
A374679.
- For leaders of weakly increasing runs we have
A374634.
- For leaders of strictly decreasing runs we have
A374762.
Types of run-leaders (instead of strictly increasing):
- For strictly decreasing leaders we have
A374689.
- For weakly increasing leaders we have
A374690.
- For weakly decreasing leaders we have
A374697.
A374700 counts compositions by sum of leaders of strictly increasing runs.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Less@@First/@Split[#,Less]&]],{n,0,15}]
A374697
Number of integer compositions of n whose leaders of strictly increasing runs are weakly decreasing.
Original entry on oeis.org
1, 1, 2, 4, 8, 15, 29, 55, 103, 193, 360, 669, 1239, 2292, 4229, 7794, 14345, 26375, 48452, 88946, 163187, 299250, 548543, 1005172, 1841418, 3372603, 6175853, 11307358, 20699979, 37890704, 69351776, 126926194, 232283912, 425075191, 777848212, 1423342837, 2604427561
Offset: 0
The composition (1,2,1,3,2,3) has strictly increasing runs ((1,2),(1,3),(2,3)), with leaders (1,1,2), so is not counted under a(12).
The a(0) = 1 through a(5) = 15 compositions:
() (1) (2) (3) (4) (5)
(11) (12) (13) (14)
(21) (22) (23)
(111) (31) (32)
(112) (41)
(121) (113)
(211) (131)
(1111) (212)
(221)
(311)
(1112)
(1121)
(1211)
(2111)
(11111)
Ranked by positions of weakly decreasing rows in
A374683.
Types of runs (instead of strictly increasing):
- For leaders of identical runs we have
A000041.
- For leaders of anti-runs we have
A374682.
- For leaders of weakly increasing runs we have
A189076, complement
A374636.
- For leaders of weakly decreasing runs we have
A374747.
- For leaders of strictly decreasing runs we have
A374765.
Types of run-leaders (instead of weakly decreasing):
- For weakly increasing leaders we have
A374690.
- For strictly increasing leaders we have
A374688.
- For strictly decreasing leaders we have
A374689.
A335456 counts patterns matched by compositions.
A374700 counts compositions by sum of leaders of strictly increasing runs.
-
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],GreaterEqual@@First/@Split[#,Less]&]],{n,0,15}]
-
seq(n) = Vec(1/prod(k=1, n, 1 - x^k*prod(j=k+1, n-k, 1 + x^j, 1 + O(x^(n-k+1))))) \\ Andrew Howroyd, Jul 31 2024
A374680
Number of integer compositions of n whose leaders of anti-runs are strictly decreasing.
Original entry on oeis.org
1, 1, 1, 3, 5, 8, 16, 31, 52, 98, 179, 323, 590, 1078, 1945, 3531, 6421, 11621, 21041, 38116, 68904, 124562, 225138, 406513, 733710, 1323803
Offset: 0
The a(0) = 1 through a(6) = 16 compositions:
() (1) (2) (3) (4) (5) (6)
(12) (13) (14) (15)
(21) (31) (23) (24)
(121) (32) (42)
(211) (41) (51)
(131) (123)
(212) (132)
(311) (141)
(213)
(231)
(312)
(321)
(411)
(1212)
(2112)
(2121)
For distinct but not necessarily decreasing leaders we have
A374518.
For partitions instead of compositions we have
A375133.
Other types of runs (instead of anti-):
- For leaders of identical runs we have
A000041.
- For leaders of weakly increasing runs we have
A188920.
- For leaders of weakly decreasing runs we have
A374746.
- For leaders of strictly decreasing runs we have
A374763.
- For leaders of strictly increasing runs we have
A374689.
Other types of run-leaders (instead of strictly decreasing):
- For weakly increasing leaders we have
A374681.
- For strictly increasing leaders we have
A374679.
- For weakly decreasing leaders we have
A374682.
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],Greater@@First/@Split[#,UnsameQ]&]],{n,0,15}]
Showing 1-10 of 18 results.
Comments