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 21-25 of 25 results.

A374684 Sum of leaders of strictly increasing runs in the n-th composition in standard order.

Original entry on oeis.org

0, 1, 2, 2, 3, 3, 1, 3, 4, 4, 4, 4, 1, 2, 2, 4, 5, 5, 5, 5, 2, 5, 3, 5, 1, 2, 3, 3, 2, 3, 3, 5, 6, 6, 6, 6, 6, 6, 4, 6, 2, 3, 6, 6, 3, 4, 4, 6, 1, 2, 3, 3, 1, 4, 2, 4, 2, 3, 4, 4, 3, 4, 4, 6, 7, 7, 7, 7, 7, 7, 5, 7, 3, 7, 7, 7, 4, 5, 5, 7, 2, 3, 4, 4, 4, 7, 5
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.

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)) with leaders (3,2,1,2,1,1,1,1), so a(1234567) = 12.
		

Crossrefs

The weak version is A374630.
Row-sums of A374683.
The opposite version is A374758.
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.
- Run-length transform is A333627.
- Run-compression transform is A373948.
- Ranks of contiguous compositions are A374249, counted by A274174.
- Ranks of non-contiguous compositions are A374253, counted by A335548.
Cf. A374251 (sums A373953), A374515 (sums A374516), A374740 (sums A374741).

Programs

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

A374690 Number of integer compositions of n whose leaders of strictly increasing runs are weakly increasing.

Original entry on oeis.org

1, 1, 2, 3, 6, 10, 19, 34, 63, 115, 211, 387, 710, 1302, 2385, 4372, 8009, 14671, 26867, 49196, 90069, 164884, 301812, 552406, 1011004, 1850209, 3385861, 6195832, 11337470, 20745337, 37959030, 69454669, 127081111, 232517129, 425426211, 778376479, 1424137721
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 composition (1,1,3,2,3,2) has strictly increasing runs ((1),(1,3),(2,3),(2)), with leaders (1,1,2,2), so is counted under a(12).
The a(0) = 1 through a(6) = 19 compositions:
  ()  (1)  (2)   (3)    (4)     (5)      (6)
           (11)  (12)   (13)    (14)     (15)
                 (111)  (22)    (23)     (24)
                        (112)   (113)    (33)
                        (121)   (122)    (114)
                        (1111)  (131)    (123)
                                (1112)   (132)
                                (1121)   (141)
                                (1211)   (222)
                                (11111)  (1113)
                                         (1122)
                                         (1131)
                                         (1212)
                                         (1311)
                                         (11112)
                                         (11121)
                                         (11211)
                                         (12111)
                                         (111111)
		

Crossrefs

Ranked by positions of weakly increasing 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 A374681.
- For leaders of weakly increasing runs we have A374635.
- For leaders of weakly decreasing runs we have A188900.
- For leaders of strictly decreasing runs we have A374764.
Types of run-leaders (instead of weakly increasing):
- For identical leaders we have A374686, ranks A374685.
- For distinct leaders we have A374687, ranks A374698.
- For strictly increasing leaders we have A374688.
- For strictly decreasing leaders we have A374689.
- 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.
A374700 counts compositions by sum of leaders of strictly increasing runs.

Programs

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

Extensions

a(26) and beyond from Christian Sievers, Aug 08 2024

A374639 Numbers k such that the leaders of maximal anti-runs in the k-th composition in standard order (A066099) are not distinct.

Original entry on oeis.org

3, 7, 10, 14, 15, 21, 23, 27, 28, 29, 30, 31, 36, 39, 42, 43, 47, 51, 55, 56, 57, 58, 59, 60, 61, 62, 63, 71, 73, 79, 84, 85, 86, 87, 90, 94, 95, 99, 103, 106, 107, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 135
Offset: 1

Views

Author

Gus Wiseman, Aug 06 2024

Keywords

Comments

The leaders of maximal 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.
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 sequence of terms together with the corresponding compositions begins:
   3: (1,1)
   7: (1,1,1)
  10: (2,2)
  14: (1,1,2)
  15: (1,1,1,1)
  21: (2,2,1)
  23: (2,1,1,1)
  27: (1,2,1,1)
  28: (1,1,3)
  29: (1,1,2,1)
  30: (1,1,1,2)
  31: (1,1,1,1,1)
		

Crossrefs

First differs from A335466 in lacking 166, complement A335467.
The complement for leaders of identical runs is A374249, counted by A274174.
For leaders of identical runs we have A374253, counted by A335548.
Positions of non-distinct (or non-strict) rows in A374515.
The complement is A374638, counted by A374518.
For identical instead of non-distinct we have A374519, counted by A374517.
For identical instead of distinct we have A374520, counted by A374640.
Compositions of this type are counted by A374678.
Other functional neighbors are A374768, A374698, A374701, A374767.
A065120 gives leaders of standard compositions.
A106356 counts compositions by number of maximal anti-runs.
A238279 counts compositions by number of maximal runs
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.
- Anti-runs are ranked by A333489, counted by A003242.
- Run-length transform is A333627, sum A070939.
- Run-compression transform is A373948, sum A373953, excess A373954.
Six types of maximal runs:

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],!UnsameQ@@First/@Split[stc[#],UnsameQ]&]

A375139 Numbers k such that the leaders of strictly increasing runs in the k-th composition in standard order are not weakly decreasing.

Original entry on oeis.org

26, 50, 53, 58, 90, 98, 100, 101, 106, 107, 114, 117, 122, 154, 164, 178, 181, 186, 194, 196, 197, 201, 202, 203, 210, 212, 213, 214, 215, 218, 226, 228, 229, 234, 235, 242, 245, 250, 282, 306, 309, 314, 324, 329, 346, 354, 356, 357, 362, 363, 370, 373, 378
Offset: 1

Views

Author

Gus Wiseman, Aug 12 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 terms together with corresponding compositions begin:
   26: (1,2,2)
   50: (1,3,2)
   53: (1,2,2,1)
   58: (1,1,2,2)
   90: (2,1,2,2)
   98: (1,4,2)
  100: (1,3,3)
  101: (1,3,2,1)
  106: (1,2,2,2)
  107: (1,2,2,1,1)
  114: (1,1,3,2)
  117: (1,1,2,2,1)
  122: (1,1,1,2,2)
  154: (3,1,2,2)
  164: (2,3,3)
  178: (2,1,3,2)
  181: (2,1,2,2,1)
  186: (2,1,1,2,2)
		

Crossrefs

For leaders of identical runs we have A335485.
Ranked by positions of non-weakly decreasing rows in A374683.
For identical leaders we have A374685, counted by A374686.
The complement is counted by A374697.
For distinct leaders we have A374698, counted by A374687.
Compositions of this type are counted by A375135.
Weakly increasing leaders: A375137, counts A374636, complement A189076.
Interchanging weak/strict: A375295, counted by A375140, complement A188920.
A003242 counts anti-run compositions, ranks A333489.
A374700 counts compositions by sum of leaders of strictly increasing runs.
All of the following pertain to compositions in standard order:
- Length is A000120.
- Sum is A029837(n+1).
- Leader is A065120.
- Parts are listed by A066099.
- Strict compositions are A233564.
- Run-length transform is A333627, sum A070939.
- Run-compression transform is A373948, sum A373953, excess A373954.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],!GreaterEqual@@First/@Split[stc[#],Less]&]

A376263 Number of strict integer compositions of n whose leaders of increasing runs are increasing.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 5, 6, 8, 11, 18, 21, 30, 38, 52, 77, 96, 126, 167, 217, 278, 402, 488, 647, 822, 1073, 1340, 1747, 2324, 2890, 3695, 4690, 5924, 7469, 9407, 11718, 15405, 18794, 23777, 29507, 37188, 45720, 57404, 70358, 87596, 110672, 135329, 167018, 206761, 254200, 311920
Offset: 0

Views

Author

Gus Wiseman, Sep 18 2024

Keywords

Comments

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

Examples

			The a(1) = 1 through a(9) = 11 compositions:
 (1) (2) (3)   (4)   (5)   (6)     (7)     (8)     (9)
         (1,2) (1,3) (1,4) (1,5)   (1,6)   (1,7)   (1,8)
                     (2,3) (2,4)   (2,5)   (2,6)   (2,7)
                           (1,2,3) (3,4)   (3,5)   (3,6)
                           (1,3,2) (1,2,4) (1,2,5) (4,5)
                                   (1,4,2) (1,3,4) (1,2,6)
                                           (1,4,3) (1,3,5)
                                           (1,5,2) (1,5,3)
                                                   (1,6,2)
                                                   (2,3,4)
                                                   (2,4,3)
		

Crossrefs

For less-greater or greater-less we have A294617.
This is a strict case of A374688, weak version A374635.
The strict less-greater version is A374689, weak version A189076.
A003242 counts anti-run compositions, ranks A333489.
A011782 counts compositions, strict A032020.
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@@#&&Less@@First/@Split[#,Less]&]],{n,0,15}]
  • PARI
    \\ here Q(n) gives n-th row of A008289.
    Q(n)={Vecrev(polcoef(prod(k=1, n, 1 + y*x^k, 1 + O(x*x^n)), n)/y)}
    a(n)={if(n==0, 1, my(r=Q(n), s=Vec(serlaplace(exp(exp(x+O(x^#r))- 1)))); sum(k=1, #r, r[k]*s[k]))} \\ Andrew Howroyd, Sep 18 2024

Formula

a(n) = Sum_{k>=1} A008289(n,k)*A000110(k-1) for n > 0. - Andrew Howroyd, Sep 18 2024

Extensions

a(26) onwards from Andrew Howroyd, Sep 18 2024
Previous Showing 21-25 of 25 results.