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.

Previous Showing 11-16 of 16 results.

A374741 Sum of leaders of weakly decreasing runs in the n-th composition in standard order.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 24 2024

Keywords

Comments

The leaders of weakly decreasing runs in a sequence are obtained by splitting it into maximal weakly 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 maximal weakly decreasing subsequences of the 1234567th composition in standard order are ((3,2,1),(2,2,1),(2),(5,1,1,1)), so a(1234567) is 3+2+2+5 = 12.
		

Crossrefs

For length instead of sum we have A124765.
Other types of runs are A373953, A374516, A374684, A374758.
The opposite is A374630.
Row-sums of A374740, opposite A374629.
Counting compositions by this statistic gives A374748, opposite A374637.
A373949 counts compositions by run-compressed sum.
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, A124766, A124767, A124768, A124769, A333381.
- Ranks of strict compositions are A233564, counted by A032020.
- Constant compositions are ranked by A272919.
- Ranks of anti-run compositions are A333489, counted by A003242.
- Run-length transform is A333627.
- Run-compression transform is A373948.

Programs

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

A374746 Number of integer compositions of n whose leaders of weakly decreasing runs are strictly decreasing.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 12, 18, 31, 51, 86, 143, 241, 397, 657, 1082, 1771, 2889, 4697, 7605, 12269, 19720, 31580, 50412, 80205, 127208, 201149, 317171, 498717, 782076, 1223230, 1908381, 2969950, 4610949, 7141972, 11037276, 17019617, 26188490, 40213388, 61624824
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

			The a(0) = 1 through a(7) = 18 compositions:
  ()  (1)  (2)   (3)    (4)     (5)      (6)       (7)
           (11)  (21)   (22)    (32)     (33)      (43)
                 (111)  (31)    (41)     (42)      (52)
                        (211)   (221)    (51)      (61)
                        (1111)  (311)    (222)     (322)
                                (2111)   (312)     (331)
                                (11111)  (321)     (412)
                                         (411)     (421)
                                         (2211)    (511)
                                         (3111)    (2221)
                                         (21111)   (3112)
                                         (111111)  (3121)
                                                   (3211)
                                                   (4111)
                                                   (22111)
                                                   (31111)
                                                   (211111)
                                                   (1111111)
		

Crossrefs

Ranked by positions of strictly decreasing rows in A374740, opp. A374629.
Types of runs (instead of weakly decreasing):
- For leaders of identical runs we have A000041.
- For leaders of weakly increasing runs we have A188920.
- For leaders of anti-runs we have A374680.
- For leaders of strictly increasing runs we have A374689.
- For leaders of strictly decreasing runs we have A374763.
Types of run-leaders (instead of strictly decreasing):
- For weakly increasing leaders we appear to have A188900.
- For identical leaders we have A374742.
- For distinct leaders we have A374743, ranks A374701.
- For strictly increasing leaders we have opposite A374634.
- For weakly decreasing leaders we have A374747.
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.
A374748 counts compositions by sum of leaders of weakly decreasing runs.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Greater@@First/@Split[#,GreaterEqual]&]],{n,0,15}]
  • PARI
    seq(n)={my(A=O(x*x^n), p=1+A, q=p, r=p); for(k=1, n\2, r += x^k*q/(1-x^k); p /= 1 - x^k; q *= (1 - x^k/(1-x^k) + x^k*p)/(1-x^k) );  Vec(r + x^(n\2+1)*q/(1-x))} \\ Andrew Howroyd, Dec 30 2024

Formula

G.f.: Sum_{k>=0} x^k*Q(k,x)/(1 - x^k) where Q(0,x) = 1 and Q(k,x) = Q(k-1,x) * (1 - x^k/(1 - x^k) + x^k*Product_{j=1..k} (1 - x^j))/(1 - x^k) for k > 0. - Andrew Howroyd, Dec 30 2024

Extensions

a(24)-a(39) from Alois P. Heinz, Jul 26 2024

A374747 Number of integer compositions of n whose leaders of weakly decreasing runs are themselves weakly decreasing.

Original entry on oeis.org

1, 1, 2, 3, 5, 8, 14, 24, 43, 76, 136, 242, 431, 764, 1353, 2387, 4202, 7376, 12918, 22567, 39338, 68421, 118765, 205743, 355756, 614038, 1058023, 1820029, 3125916, 5360659, 9179700, 15697559, 26807303, 45720739, 77881393, 132505599, 225182047, 382252310, 648187055
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

			The composition y = (3,2,1,2,2,1,2,5,1,1,1) has weakly decreasing runs ((3,2,1),(2,2,1),(2),(5,1,1,1)), with leaders (3,2,2,5), which are not weakly decreasing, so y is not counted under a(21).
The a(0) = 1 through a(6) = 14 compositions:
  ()  (1)  (2)   (3)    (4)     (5)      (6)
           (11)  (21)   (22)    (32)     (33)
                 (111)  (31)    (41)     (42)
                        (211)   (212)    (51)
                        (1111)  (221)    (222)
                                (311)    (312)
                                (2111)   (321)
                                (11111)  (411)
                                         (2112)
                                         (2121)
                                         (2211)
                                         (3111)
                                         (21111)
                                         (111111)
		

Crossrefs

Ranked by positions of weakly decreasing rows in A374740, opposite A374629.
Types of runs (instead of weakly decreasing):
- For leaders of identical runs we have A000041.
- For leaders of weakly increasing runs we appear to have A189076.
- For leaders of anti-runs we have A374682.
- For leaders of strictly increasing runs we have A374697.
- For leaders of strictly decreasing runs we have A374765.
Types of run-leaders (instead of weakly decreasing):
- 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 increasing leaders we have opposite A374634.
- For strictly decreasing leaders we have A374746.
A011782 counts compositions.
A124765 counts weakly decreasing runs in standard 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.
A374748 counts compositions by sum of leaders of weakly decreasing runs.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],GreaterEqual@@First/@Split[#,GreaterEqual]&]],{n,0,15}]
  • PARI
    dfs(m, r, u) = 1 + sum(s=r+1, min(m, u), x^s/(1-x^s) + sum(t=1, min(s-1, m-s), dfs(m-s-t, t, s)*x^(s+t)/prod(i=t, s, 1-x^i)));
    lista(nn) = Vec(dfs(nn, 0, nn) + O(x^(1+nn))); \\ Jinyuan Wang, Feb 14 2025

Extensions

More terms from Jinyuan Wang, Feb 14 2025

A374521 Triangle read by rows where T(n,k) is the number of integer compositions of n whose leaders of anti-runs sum to k.

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 1, 1, 2, 0, 2, 1, 2, 3, 0, 2, 5, 3, 4, 2, 0, 5, 7, 8, 3, 5, 4, 0, 9, 12, 11, 17, 5, 8, 2, 0, 14, 26, 23, 22, 24, 6, 9, 4, 0, 25, 42, 54, 41, 36, 36, 7, 12, 3, 0, 46, 76, 88, 107, 60, 60, 48, 9, 14, 4
Offset: 0

Views

Author

Gus Wiseman, Aug 02 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

			Triangle begins:
   1
   0   1
   0   0   2
   0   1   1   2
   0   2   1   2   3
   0   2   5   3   4   2
   0   5   7   8   3   5   4
   0   9  12  11  17   5   8   2
   0  14  26  23  22  24   6   9   4
   0  25  42  54  41  36  36   7  12   3
   0  46  76  88 107  60  60  48   9  14   4
   0  78 144 166 179 176 101  83  68  10  17   2
   0 136 258 327 339 311 299 139 122  81  12  18   6
   0 242 457 602 704 591 544 447 198 165 109  12  23   2
Row n = 6 counts the following compositions:
  .  (15)    (24)    (321)    (42)     (51)     (6)
     (141)   (114)   (312)    (1122)   (411)    (33)
     (132)   (231)   (1113)   (11112)  (3111)   (222)
     (123)   (213)   (2112)            (2211)   (111111)
     (1212)  (1311)  (1221)            (21111)
             (1131)  (12111)
             (2121)  (11211)
                     (11121)
		

Crossrefs

Column n = k is A000005, except a(0) = 1.
Row-sums are A011782.
Column k = 1 is A096569.
For length instead of sum we have A106356.
The corresponding rank statistic is A374516, row-sums of A374515.
For identical leaders we have A374517, ranks A374519.
For distinct leaders we have A374518, ranks A374638.
Other types of runs (instead of anti-):
- For leaders of identical runs we have A373949.
- For leaders of weakly increasing runs we have A374637.
- 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.
A003242 counts anti-run compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.

Programs

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

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

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 0, 1, 3, 0, 0, 0, 3, 5, 0, 0, 0, 1, 8, 7, 0, 0, 0, 1, 3, 17, 11, 0, 0, 0, 0, 4, 10, 35, 15, 0, 0, 0, 0, 1, 12, 28, 65, 22, 0, 0, 0, 0, 1, 6, 31, 70, 118, 30, 0, 0, 0, 0, 1, 3, 22, 78, 163, 203, 42, 0, 0, 0, 0, 0, 4, 13, 69, 186, 354, 342, 56
Offset: 0

Views

Author

Gus Wiseman, Aug 02 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.
Are the column-sums finite?

Examples

			Triangle begins:
   1
   0   1
   0   0   2
   0   0   1   3
   0   0   0   3   5
   0   0   0   1   8   7
   0   0   0   1   3  17  11
   0   0   0   0   4  10  35  15
   0   0   0   0   1  12  28  65  22
   0   0   0   0   1   6  31  70 118  30
   0   0   0   0   1   3  22  78 163 203  42
   0   0   0   0   0   4  13  69 186 354 342  56
Row n = 6 counts the following compositions:
  .  .  .  (321)  (42)    (51)     (6)
                  (132)   (411)    (15)
                  (2121)  (141)    (24)
                          (312)    (114)
                          (231)    (33)
                          (213)    (123)
                          (3111)   (1113)
                          (1311)   (222)
                          (1131)   (1122)
                          (2211)   (11112)
                          (2112)   (111111)
                          (1221)
                          (1212)
                          (21111)
                          (12111)
                          (11211)
                          (11121)
		

Crossrefs

Column n = k is A000041.
Row-sums are A011782.
For length instead of sum we have A333213.
The corresponding rank statistic is A374758, row-sums of A374757.
For identical leaders we have A374760, ranks A374759.
For distinct leaders we have A374761, ranks A374767.
Other types of runs (instead of strictly decreasing):
- For leaders of identical 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 weakly decreasing runs we have A374748.
A003242 counts anti-run compositions.
A238130, A238279, A333755 count compositions by number of runs.
A335456 counts patterns matched by compositions.

Programs

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

A375406 Number of integer compositions of n that match the dashed pattern 3-12.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 4, 14, 41, 110, 278, 673, 1576, 3599, 8055, 17732, 38509, 82683, 175830, 370856, 776723, 1616945, 3348500, 6902905, 14174198, 29004911, 59175625, 120414435, 244468774, 495340191, 1001911626, 2023473267, 4081241473, 8222198324, 16548146045, 33276169507
Offset: 0

Views

Author

Gus Wiseman, Aug 22 2024

Keywords

Comments

First differs from the non-dashed version A335514 at a(9) = 41, A335514(9) = 42, due to the composition (3,1,3,2).
Also the number of integer compositions of n whose leaders of weakly decreasing runs are not weakly increasing. For example, the composition q = (1,1,2,1,2,2,1,3) has maximal weakly decreasing runs ((1,1),(2,1),(2,2,1),(3)), with leaders (1,2,2,3), which are weakly increasing, so q is not counted under a(13); also q does not match 3-12. On the other hand, the reverse is (3,1,2,2,1,2,1,1), with maximal weakly decreasing runs ((3,1),(2,2,1),(2,1,1)), with leaders (3,2,2), which are not weakly increasing, so it is counted under a(13); meanwhile it matches 3-12, as required.

Examples

			The a(0) = 0 through a(8) = 14 compositions:
  .  .  .  .  .  .  (312)  (412)   (413)
                           (1312)  (512)
                           (3112)  (1412)
                           (3121)  (2312)
                                   (3122)
                                   (3212)
                                   (4112)
                                   (4121)
                                   (11312)
                                   (13112)
                                   (13121)
                                   (31112)
                                   (31121)
                                   (31211)
		

Crossrefs

For leaders of identical runs we have A056823.
The complement is counted by A188900.
The non-dashed version is A335514, ranks A335479.
Ranks are positions of non-weakly increasing rows in A374740.
A003242 counts anti-run compositions, ranks A333489.
A011782 counts compositions.
Counting compositions by number of runs: A238130, A238279, A333755.
A373949 counts compositions by run-compressed sum, opposite A373951.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], !LessEqual@@First/@Split[#,GreaterEqual]&]],{n,0,15}]
    - or -
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], MatchQ[#,{_,z_,_,x_,y_,_}/;x
    				

Formula

a(n>0) = 2^(n-1) - A188900(n).
Previous Showing 11-16 of 16 results.