cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 31 results. Next

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

Views

Author

Gus Wiseman, Jul 26 2024

Keywords

Comments

The leaders of strictly increasing runs in a sequence are obtained by splitting it into maximal strictly increasing subsequences and taking the first term of each.
The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			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)
		

Crossrefs

Row-leaders are A065120.
Row-lengths are A124768.
Other types of runs: A374251, A374515, A374740.
The weak version is A374629, sum A374630, length A124766.
Row-sums are A374684.
Positions of identical rows are A374685, counted by A374686.
Positions of distinct (strict) rows are A374698, counted by A374687.
The opposite version is A374757, sum A374758, length A124769.
All of the following pertain to compositions in standard order:
- Length is A000120.
- Sum is A029837(n+1) (or sometimes A070939).
- Parts are listed by A066099.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Number of max runs: A124765, A124767, A333381.
- Run-length transform is A333627, sum A070939.
- Run-compression transform is A373948, sum A373953, excess A373954.
- Ranks of contiguous compositions are A374249, counted by A274174.
- Ranks of non-contiguous compositions are A374253, counted by A335548.

Programs

  • Mathematica
    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

Views

Author

Gus Wiseman, Jul 29 2024

Keywords

Comments

The leaders of strictly decreasing runs in a sequence are obtained by splitting it into maximal strictly decreasing subsequences and taking the first term of each.

Examples

			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)
		

Crossrefs

For leaders of identical runs we have A274174, ranked by A374249.
The weak opposite version is A374632, ranks A374768.
The opposite version is A374687, ranks A374698.
For identical instead of distinct leaders we have A374760, ranks A374759.
The weak version is A374743, ranks A374701.
Ranked by A374767.
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.
- For leaders of anti-runs we have A374518, ranked by A374638.
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.
A003242 counts anti-run compositions, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A373949 counts compositions by run-compressed sum, opposite A373951.
A374700 counts compositions by sum of leaders of strictly increasing runs.

Programs

  • Mathematica
    Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],UnsameQ@@First/@Split[#,Greater]&]],{n,0,15}]
  • PARI
    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

Extensions

More terms from Jinyuan Wang, Feb 13 2025

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

Views

Author

Gus Wiseman, Jul 27 2024

Keywords

Comments

The leaders of strictly increasing runs in a sequence are obtained by splitting it into maximal strictly increasing subsequences and taking the first term of each.

Examples

			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)
		

Crossrefs

Ranked by A374698.
Types of runs (instead of strictly increasing):
- For leaders of identical runs we have A274174 for n > 0, ranks A374249.
- For leaders of anti-runs we have A374518, ranks A374638.
- 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 identical leaders we have A374686, ranks A374685.
- 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.
A003242 counts anti-run compositions, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A335456 counts patterns matched by compositions.
A373949 counts compositions by run-compressed sum, opposite A373951.
A374683 lists leaders of strictly increasing runs of standard compositions.
A374700 counts compositions by sum of leaders of strictly increasing runs.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],UnsameQ@@First/@Split[#,Less]&]],{n,0,15}]
  • PARI
    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

Extensions

More terms from Jinyuan Wang, Feb 13 2025

A374757 Irregular triangle read by rows where row n lists the leaders of strictly decreasing runs in the n-th composition in standard order.

Original entry on oeis.org

1, 2, 1, 1, 3, 2, 1, 2, 1, 1, 1, 4, 3, 2, 2, 2, 1, 1, 3, 1, 2, 1, 1, 2, 1, 1, 1, 1, 5, 4, 3, 3, 1, 2, 3, 2, 2, 2, 2, 2, 1, 1, 1, 4, 1, 3, 1, 2, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 6, 5, 4, 4, 1, 3, 3, 3, 3, 2, 3, 1, 1, 2, 4, 2, 3
Offset: 0

Views

Author

Gus Wiseman, Jul 29 2024

Keywords

Comments

The leaders of strictly decreasing runs in a sequence are obtained by splitting it into maximal strictly decreasing subsequences and taking the first term of each.
The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			the 1234567th composition in standard order is (3,2,1,2,2,1,2,5,1,1,1), with strictly decreasing runs ((3,2,1),(2),(2,1),(2),(5,1),(1),(1)), so row 1234567 is (3,2,2,2,5,1,1).
The nonnegative integers, corresponding compositions, and leaders of strictly decreasing 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)
    3:   (1,1) -> (1,1)     18:     (3,2) -> (3)
    4:     (3) -> (3)       19:   (3,1,1) -> (3,1)
    5:   (2,1) -> (2)       20:     (2,3) -> (2,3)
    6:   (1,2) -> (1,2)     21:   (2,2,1) -> (2,2)
    7: (1,1,1) -> (1,1,1)   22:   (2,1,2) -> (2,2)
    8:     (4) -> (4)       23: (2,1,1,1) -> (2,1,1)
    9:   (3,1) -> (3)       24:     (1,4) -> (1,4)
   10:   (2,2) -> (2,2)     25:   (1,3,1) -> (1,3)
   11: (2,1,1) -> (2,1)     26:   (1,2,2) -> (1,2,2)
   12:   (1,3) -> (1,3)     27: (1,2,1,1) -> (1,2,1)
   13: (1,2,1) -> (1,2)     28:   (1,1,3) -> (1,1,3)
   14: (1,1,2) -> (1,1,2)   29: (1,1,2,1) -> (1,1,2)
		

Crossrefs

Row-leaders of nonempty rows are A065120.
Row-lengths are A124769.
The opposite version is A374683, sum A374684, length A124768.
The weak version is A374740, sum A374741, length A124765.
Row-sums are A374758.
Positions of identical rows are A374759 (counted by A374760).
Positions of distinct (strict) rows are A374767 (counted by A374761).
All of the following pertain to compositions in standard order:
- Length is A000120.
- Sum is A029837(n+1).
- Parts are listed by A066099.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Run-length transform is A333627, sum A070939.
- Run-compression transform is A373948, sum A373953, excess A373954.
- Ranks of contiguous compositions are A374249, counted by A274174.
- Ranks of non-contiguous compositions are A374253, counted by A335548.
Six types of runs:

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Table[First/@Split[stc[n],Greater],{n,0,100}]

A374686 Number of integer compositions of n whose leaders of strictly increasing runs are identical.

Original entry on oeis.org

1, 1, 2, 3, 6, 9, 17, 29, 51, 91, 162, 291, 523, 948, 1712, 3112, 5656, 10297, 18763, 34217, 62442, 114006, 208239, 380465, 695342, 1271046, 2323818, 4249113, 7770389, 14210991, 25991853, 47541734, 86962675, 159077005, 291001483, 532345978, 973871397
Offset: 0

Views

Author

Gus Wiseman, Jul 27 2024

Keywords

Comments

The leaders of strictly increasing runs in a sequence are obtained by splitting it into maximal strictly increasing subsequences and taking the first term of each.
Also the number of ways to choose a strict integer partition of each part of an integer composition of n (A304969) such that the minima are identical. For maxima instead of minima we have A374760. For all partitions (not just strict) we have A374704, for maxima A358905.

Examples

			The composition (2,3,2,2,3,4) has strictly increasing runs ((2,3),(2),(2,3,4)), with leaders (2,2,2), so is counted under a(16).
The a(0) = 1 through a(6) = 17 compositions:
  ()  (1)  (2)   (3)    (4)     (5)      (6)
           (11)  (12)   (13)    (14)     (15)
                 (111)  (22)    (23)     (24)
                        (112)   (113)    (33)
                        (121)   (131)    (114)
                        (1111)  (1112)   (123)
                                (1121)   (141)
                                (1211)   (222)
                                (11111)  (1113)
                                         (1131)
                                         (1212)
                                         (1311)
                                         (11112)
                                         (11121)
                                         (11211)
                                         (12111)
                                         (111111)
		

Crossrefs

Ranked by A374685.
Types of runs (instead of strictly increasing):
- For leaders of identical runs we have A000005 for n > 0, ranks A272919.
- For leaders of anti-runs we have A374517, ranks A374519.
- For leaders of weakly increasing runs we have A374631, ranks A374633.
- 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 distinct leaders we have A374687, ranks A374698.
- 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.
A003242 counts anti-run compositions, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.
A335456 counts patterns matched by compositions.
A335548 counts non-contiguous compositions, ranks A374253.
A373949 counts compositions by run-compressed sum, opposite A373951.
A374683 lists leaders of strictly increasing runs of standard compositions.
A374700 counts compositions by sum of leaders of strictly increasing runs.

Programs

  • Mathematica
    Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],SameQ@@First/@Split[#,Less]&]],{n,0,15}]
  • PARI
    seq(n) = Vec(1 + sum(k=1, n, 1/(1 - x^k*prod(j=k+1, n-k, 1 + x^j, 1 + O(x^(n-k+1))))-1)) \\ Andrew Howroyd, Jul 27 2024

Extensions

a(26) onwards from Andrew Howroyd, Jul 27 2024

A374637 Triangle read by rows where T(n,k) is the number of integer compositions of n whose leaders of weakly increasing runs sum to k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 2, 0, 2, 0, 3, 2, 1, 2, 0, 5, 4, 3, 1, 3, 0, 7, 10, 7, 3, 1, 4, 0, 11, 19, 14, 9, 4, 2, 5, 0, 15, 39, 27, 22, 10, 7, 2, 6, 0, 22, 69, 59, 48, 24, 15, 8, 3, 8, 0, 30, 125, 117, 104, 56, 38, 19, 10, 3, 10, 0, 42, 211, 241, 215, 132, 80, 49, 25, 12, 5, 12
Offset: 0

Views

Author

Gus Wiseman, Jul 23 2024

Keywords

Comments

The leaders of weakly increasing runs in a sequence are obtained by splitting it into maximal weakly increasing subsequences and taking the first term of each.

Examples

			Triangle begins:
   1
   0   1
   0   1   1
   0   2   0   2
   0   3   2   1   2
   0   5   4   3   1   3
   0   7  10   7   3   1   4
   0  11  19  14   9   4   2   5
   0  15  39  27  22  10   7   2   6
   0  22  69  59  48  24  15   8   3   8
   0  30 125 117 104  56  38  19  10   3  10
   0  42 211 241 215 132  80  49  25  12   5  12
   0  56 354 473 445 296 186 109  61  31  17   5  15
   0  77 571 917 896 665 409 258 139  78  41  20   7  18
Row n = 6 counts the following compositions:
  .  (15)      (24)     (33)     (312)   (411)  (6)
     (114)     (141)    (231)    (3111)         (51)
     (123)     (1311)   (213)    (2121)         (42)
     (1113)    (1131)   (132)                   (321)
     (1122)    (222)    (2211)
     (11112)   (1221)   (2112)
     (111111)  (1212)   (21111)
               (12111)
               (11211)
               (11121)
		

Crossrefs

Last column n = k is A000009.
Second column k = 2 is A000041.
Row-sums are A011782.
For length instead of sum we have A238343.
The corresponding rank statistic is A374630, row-sums of A374629.
Types of runs (instead of weakly increasing):
- For leaders of constant runs we have A373949.
- For leaders of anti-runs we have A374521.
- For leaders of strictly increasing runs we have A374700.
- For leaders of weakly decreasing runs we have A374748.
- For leaders of strictly decreasing runs we have A374766.
Types of run-leaders:
- 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 distinct leaders we have A374632, ranks A374768.
- For strictly increasing leaders we have A374634.
- For weakly increasing leaders we have A374635.
A003242 counts anti-run compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.
A335456 counts patterns matched by compositions.
A335548 counts non-contiguous compositions, ranks A374253.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Total[First/@Split[#,LessEqual]]==k&]],{n,0,15},{k,0,n}]

A374706 Sum of minima of the maximal strictly increasing runs in the weakly increasing prime indices of n.

Original entry on oeis.org

0, 1, 2, 2, 3, 1, 4, 3, 4, 1, 5, 2, 6, 1, 2, 4, 7, 3, 8, 2, 2, 1, 9, 3, 6, 1, 6, 2, 10, 1, 11, 5, 2, 1, 3, 4, 12, 1, 2, 3, 13, 1, 14, 2, 4, 1, 15, 4, 8, 4, 2, 2, 16, 5, 3, 3, 2, 1, 17, 2, 18, 1, 4, 6, 3, 1, 19, 2, 2, 1, 20, 5, 21, 1, 5, 2, 4, 1, 22, 4, 8, 1
Offset: 1

Views

Author

Gus Wiseman, Aug 04 2024

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The prime indices of 540 are {1,1,2,2,2,3}, with strictly increasing runs ({1},{1,2},{2},{2,3}), with minima (1,1,2,2), summing to a(540) = 6.
		

Crossrefs

For leaders of constant runs we have A066328.
A version for compositions is A374684, row-sums of A374683 (length A124768).
Row-sums of A375128.
For length instead of sum we have A375136.
A055887 counts sequences of partitions with total sum n.
A112798 lists prime indices:
- length A001222, distinct A001221
- leader A055396
- sum A056239
- reverse A296150

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Total[First/@Split[prix[n],Less]],{n,100}]

A375128 Irregular triangle read by rows where row n lists the minima of maximal strictly increasing runs in the weakly increasing prime indices of n.

Original entry on oeis.org

1, 2, 1, 1, 3, 1, 4, 1, 1, 1, 2, 2, 1, 5, 1, 1, 6, 1, 2, 1, 1, 1, 1, 7, 1, 2, 8, 1, 1, 2, 1, 9, 1, 1, 1, 3, 3, 1, 2, 2, 2, 1, 1, 10, 1, 11, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 2, 12, 1, 2, 1, 1, 1, 13, 1, 14, 1, 1, 2, 2, 1, 15, 1, 1, 1, 1, 4, 4, 1, 3, 2, 1, 1, 16
Offset: 1

Views

Author

Gus Wiseman, Aug 04 2024

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
The minima of strictly increasing runs in a sequence are obtained by splitting it into maximal strictly increasing subsequences and taking the first term of each.

Examples

			The prime indices of 540 are {1,1,2,2,2,3}, with strictly increasing runs ({1},{1,2},{2},{2,3}), with minima (1,1,2,2), which is row 540.
Triangle begins:
   1:
   2:  1
   3:  2
   4:  1  1
   5:  3
   6:  1
   7:  4
   8:  1  1  1
   9:  2  2
  10:  1
  11:  5
  12:  1  1
  13:  6
  14:  1
  15:  2
  16:  1  1  1  1
		

Crossrefs

Row-minima are A055396.
Row-sums are A374706.
Row-lengths are A375136.
For leaders of constant runs we have A304038, row-sums A066328.
For compositions we have A374683, row-sums of A374684 (length A124768).
A112798 lists prime indices:
- length A001222, distinct A001221
- leader A055396
- sum A056239
- reverse A296150

Programs

  • Mathematica
    Table[If[n==1,{},First/@Split[Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]],Less]],{n,100}]

A374679 Number of integer compositions of n whose leaders of anti-runs are strictly increasing.

Original entry on oeis.org

1, 1, 1, 3, 4, 8, 15, 24, 45, 84, 142, 256, 464, 817, 1464, 2621, 4649, 8299, 14819, 26389, 47033, 83833, 149325, 266011, 473867, 843853
Offset: 0

Views

Author

Gus Wiseman, Aug 01 2024

Keywords

Comments

The leaders of anti-runs in a sequence are obtained by splitting it into maximal consecutive anti-runs (sequences with no adjacent equal terms) and taking the first term of each.

Examples

			The a(0) = 1 through a(6) = 15 compositions:
  ()  (1)  (2)  (3)   (4)    (5)    (6)
                (12)  (13)   (14)   (15)
                (21)  (31)   (23)   (24)
                      (121)  (32)   (42)
                             (41)   (51)
                             (122)  (123)
                             (131)  (132)
                             (212)  (141)
                                    (213)
                                    (231)
                                    (312)
                                    (321)
                                    (1212)
                                    (1221)
                                    (2121)
		

Crossrefs

For distinct but not necessarily increasing leaders we have A374518.
For partitions instead of compositions we have A375134.
Other types of runs (instead of anti-):
- For leaders of identical runs we have A000041.
- For leaders of weakly increasing runs we have A374634.
- For leaders of strictly increasing runs we have A374688.
- For leaders of strictly decreasing runs we have A374762.
Other types of run-leaders (instead of strictly increasing):
- For identical leaders we have A374517.
- For distinct leaders we have A374518.
- For weakly increasing leaders we have A374681.
- For weakly decreasing leaders we have A374682.
- For strictly decreasing leaders we have A374680.
A003242 counts anti-runs, ranks A333489.
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.
A274174 counts contiguous compositions, ranks A374249.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Less@@First/@Split[#,UnsameQ]&]],{n,0,15}]

A374748 Triangle read by rows where T(n,k) is the number of integer compositions of n whose leaders of weakly decreasing runs sum to k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 1, 2, 0, 1, 2, 3, 2, 0, 1, 2, 6, 4, 3, 0, 1, 3, 9, 8, 7, 4, 0, 1, 3, 13, 15, 16, 11, 5, 0, 1, 4, 17, 24, 32, 28, 16, 6, 0, 1, 4, 23, 36, 58, 58, 44, 24, 8, 0, 1, 5, 28, 52, 96, 115, 100, 71, 34, 10, 0, 1, 5, 35, 72, 151, 203, 211, 176, 109, 49, 12
Offset: 0

Views

Author

Gus Wiseman, Jul 26 2024

Keywords

Comments

The weakly decreasing run-leaders of a sequence are obtained by splitting it into maximal weakly decreasing subsequences and taking the first term of each.

Examples

			Triangle begins:
   1
   0   1
   0   1   1
   0   1   1   2
   0   1   2   3   2
   0   1   2   6   4   3
   0   1   3   9   8   7   4
   0   1   3  13  15  16  11   5
   0   1   4  17  24  32  28  16   6
   0   1   4  23  36  58  58  44  24   8
   0   1   5  28  52  96 115 100  71  34  10
   0   1   5  35  72 151 203 211 176 109  49  12
Row n = 6 counts the following compositions:
  .  (111111)  (222)    (33)     (42)    (51)    (6)
               (2211)   (321)    (411)   (141)   (15)
               (21111)  (3111)   (132)   (114)   (24)
                        (1221)   (1311)  (312)   (123)
                        (1122)   (1131)  (231)
                        (12111)  (1113)  (213)
                        (11211)  (2121)  (1212)
                        (11121)  (2112)
                        (11112)
		

Crossrefs

Column n = k is A000009.
Column k = 2 is A004526.
Row-sums are A011782.
For length instead of sum we have A238343.
The opposite rank statistic is A374630, row-sums of A374629.
Column k = 3 is A374702.
The center n = 2k is A374703.
The corresponding rank statistic is A374741 row-sums of A374740.
Types of runs (instead of weakly decreasing):
- For leaders of constant runs we have A373949.
- For leaders of anti-runs we have A374521.
- For leaders of weakly increasing runs we have A374637.
- For leaders of strictly increasing runs we have A374700.
- For leaders of strictly decreasing runs we have A374766.
Types of run-leaders:
- For weakly increasing leaders we appear to have A188900.
- For identical leaders we have A374742, ranks A374744.
- For distinct leaders we have A374743, ranks A374701.
- For strictly decreasing leaders we have A374746.
- For weakly decreasing leaders we have A374747.
A003242 counts anti-run compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.
A335456 counts patterns matched by compositions.
A335548 counts non-contiguous compositions, ranks A374253.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Total[First/@Split[#,GreaterEqual]]==k&]],{n,0,15},{k,0,n}]
Showing 1-10 of 31 results. Next