A374634 Number of integer compositions of n whose leaders of weakly increasing runs are strictly increasing.
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
Keywords
Examples
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)
Links
Crossrefs
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.
A011782 counts compositions.
A335456 counts patterns matched by compositions.
A374637 counts compositions by sum of leaders of weakly increasing runs.
Programs
-
Mathematica
Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Less@@First/@Split[#,LessEqual]&]],{n,0,15}]
-
PARI
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
Extensions
More terms from Jinyuan Wang, Feb 13 2025
Comments