A374760 Number of integer compositions of n whose leaders of strictly decreasing runs are identical.
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
Keywords
Examples
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)
Links
- Andrew Howroyd, Table of n, a(n) for n = 0..1000
- Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).
Crossrefs
For partitions instead of compositions we have A034296.
Ranked by A374759.
Other types of runs (instead of strictly decreasing):
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.
A011782 counts compositions.
Programs
-
Mathematica
Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],SameQ@@First/@Split[#,Greater]&]],{n,0,15}]
-
PARI
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
Formula
G.f.: 1 + Sum_{k>=1} -1 + 1/(1 - x^k*Product_{j=1..k-1} (1 + x^j)). - Andrew Howroyd, Jul 31 2024
Extensions
a(24) onwards from Andrew Howroyd, Jul 31 2024
Comments