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 31-40 of 41 results. Next

A374516 Sum of leaders of maximal anti-runs in the n-th composition in standard order.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 31 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.
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 maximal anti-runs ((3,2,1,2),(2,1,2,5,1),(1),(1)), so a(1234567) is 3 + 2 + 1 + 1 = 7.
		

Crossrefs

For length instead of sum we have A333381.
Row-sums of A374515.
Other types of runs (instead of anti-):
- For identical runs we have A373953, row-sums of A374251.
- For weakly increasing runs we have A374630, row-sums of A374629.
- For strictly increasing runs we have A374684, row-sums of A374683.
- For weakly decreasing runs we have A374741, row-sums of A374740.
- For strictly decreasing runs we have A374758, row-sums of A374757.
A065120 gives leaders of standard compositions.
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.
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.
- Ranks of contiguous compositions are A374249, counted by A274174.
- Ranks of non-contiguous compositions are A374253, counted by A335548.
Six types of maximal runs:

Programs

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

A375138 Numbers k such that the k-th composition in standard order (row k of A066099) matches the dashed pattern 23-1.

Original entry on oeis.org

41, 81, 83, 105, 145, 161, 163, 165, 166, 167, 169, 209, 211, 233, 289, 290, 291, 297, 321, 323, 325, 326, 327, 329, 331, 332, 333, 334, 335, 337, 339, 361, 401, 417, 419, 421, 422, 423, 425, 465, 467, 489, 545, 553, 577, 578, 579, 581, 582, 583, 593, 595, 617
Offset: 1

Views

Author

Gus Wiseman, Aug 09 2024

Keywords

Comments

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.
These are also numbers k such that the maximal weakly increasing runs in the reverse of the k-th composition in standard order do not have weakly decreasing leaders, where 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.
The reverse version (A375137) ranks compositions matching the dashed pattern 1-32.

Examples

			Composition 89 is (2,1,3,1), which matches 2-3-1 but not 23-1.
Composition 165 is (2,3,2,1), which matches 23-1 but not 231.
Composition 358 is (2,1,3,1,2), which matches 2-3-1 and 1-3-2 but not 23-1 or 1-32.
The sequence together with corresponding compositions begins:
   41: (2,3,1)
   81: (2,4,1)
   83: (2,3,1,1)
  105: (1,2,3,1)
  145: (3,4,1)
  161: (2,5,1)
  163: (2,4,1,1)
  165: (2,3,2,1)
  166: (2,3,1,2)
  167: (2,3,1,1,1)
  169: (2,2,3,1)
  209: (1,2,4,1)
  211: (1,2,3,1,1)
  233: (1,1,2,3,1)
		

Crossrefs

The complement is too dense, but counted by A189076.
The non-dashed version is A335482, reverse A335480.
For leaders of identical runs we have A335486, reverse A335485.
Compositions of this type are counted by A374636.
The reverse version is A375137, counted by A374636.
Matching 12-1 also gives A375296, counted by A375140 (complement A188920).
A003242 counts anti-runs, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of 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, reverse A228351.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Run-length transform is A333627, sum A070939.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],MatchQ[stc[#],{_,y_,z_,_,x_,_}/;x
    				

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]&]

A375135 Number of integer compositions of n whose leaders of maximal strictly increasing runs are not weakly decreasing.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 3, 9, 25, 63, 152, 355, 809, 1804, 3963, 8590, 18423, 39161, 82620, 173198, 361101, 749326, 1548609, 3189132, 6547190, 13404613, 27378579, 55801506, 113517749, 230544752, 467519136, 946815630, 1915199736, 3869892105, 7812086380, 15756526347
Offset: 0

Views

Author

Gus Wiseman, Aug 06 2024

Keywords

Comments

The leaders of maximal 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 y = (1,2,1,3,2,3) has strictly increasing runs ((1,2),(1,3),(2,3)), with leaders (1,1,2), which are not weakly decreasing, so y is counted under a(12).
The a(0) = 0 through a(8) = 25 compositions:
  .  .  .  .  .  (122)  (132)   (133)    (143)
                        (1122)  (142)    (152)
                        (1221)  (1132)   (233)
                                (1222)   (1133)
                                (1321)   (1142)
                                (2122)   (1223)
                                (11122)  (1232)
                                (11221)  (1322)
                                (12211)  (1331)
                                         (1421)
                                         (2132)
                                         (3122)
                                         (11132)
                                         (11222)
                                         (11321)
                                         (12122)
                                         (12212)
                                         (12221)
                                         (13211)
                                         (21122)
                                         (21221)
                                         (111122)
                                         (111221)
                                         (112211)
                                         (122111)
		

Crossrefs

For leaders of constant runs we have A056823.
For leaders of weakly increasing runs we have A374636, complement A189076?
The complement is counted by A374697.
For leaders of anti-runs we have A374699, complement A374682.
Other functional neighbors: A188920, A374764, A374765.
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], !GreaterEqual@@First/@Split[#,Less]&]],{n,0,15}]

Formula

a(n) = A011782(n) - A374697(n). - Jinyuan Wang, Feb 13 2025

Extensions

More terms from Jinyuan Wang, Feb 13 2025

A375295 Numbers k such that the leaders of maximal weakly increasing runs in the k-th composition in standard order (row k of A066099) are not strictly decreasing.

Original entry on oeis.org

13, 25, 27, 29, 45, 49, 50, 51, 53, 54, 55, 57, 59, 61, 77, 82, 89, 91, 93, 97, 98, 99, 101, 102, 103, 105, 107, 108, 109, 110, 111, 113, 114, 115, 117, 118, 119, 121, 123, 125, 141, 153, 155, 157, 162, 165, 173, 177, 178, 179, 181, 182, 183, 185, 187, 189
Offset: 1

Views

Author

Gus Wiseman, Aug 12 2024

Keywords

Comments

First differs from the non-dashed version in lacking 166, corresponding to the composition (2,3,1,2).
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.
Also numbers k such that the k-th composition in standard order (row k of A066099) matches the dashed patterns 1-32 or 1-21.

Examples

			The sequence together with corresponding compositions begins:
  13: (1,2,1)
  25: (1,3,1)
  27: (1,2,1,1)
  29: (1,1,2,1)
  45: (2,1,2,1)
  49: (1,4,1)
  50: (1,3,2)
  51: (1,3,1,1)
  53: (1,2,2,1)
  54: (1,2,1,2)
  55: (1,2,1,1,1)
  57: (1,1,3,1)
  59: (1,1,2,1,1)
  61: (1,1,1,2,1)
  77: (3,1,2,1)
  82: (2,3,2)
  89: (2,1,3,1)
  91: (2,1,2,1,1)
  93: (2,1,1,2,1)
		

Crossrefs

For leaders of identical runs we have A335485.
Positions of non-strictly decreasing rows in A374629 (sums A374630).
For identical leaders we have A374633, counted by A374631.
Matching 1-32 only gives A375137, reverse A375138, both counted by A374636.
Interchanging weak/strict gives A375139, counted by A375135.
Compositions of this type are counted by A375140, complement A188920.
The reverse version is A375296.
A003242 counts anti-runs, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.
A374637 counts compositions by sum of leaders of weakly 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, reverse A228351.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Run-length transform is A333627, sum A070939.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],!Greater@@First/@Split[stc[#],LessEqual]&]
    - or -
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],MatchQ[stc[#],{_,x_,_,z_,y_,_}/;x<=y
    				

A375296 Numbers k such that the leaders of maximal weakly increasing runs in the reverse of the k-th composition in standard order (row k of A228351) are not strictly decreasing.

Original entry on oeis.org

13, 25, 27, 29, 41, 45, 49, 51, 53, 54, 55, 57, 59, 61, 77, 81, 82, 83, 89, 91, 93, 97, 99, 101, 102, 103, 105, 107, 108, 109, 110, 111, 113, 115, 117, 118, 119, 121, 123, 125, 141, 145, 153, 155, 157, 161, 162, 163, 165, 166, 167, 169, 173, 177, 179, 181, 182
Offset: 1

Views

Author

Gus Wiseman, Aug 13 2024

Keywords

Comments

The leaders of maximal weakly increasing runs in a sequence are obtained by splitting it into maximal weakly 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.
Also numbers k such that the k-th composition in standard order (row k of A066099) matches the dashed patterns 23-1 or 12-1.

Examples

			The sequence together with corresponding compositions begins:
  13: (1,2,1)
  25: (1,3,1)
  27: (1,2,1,1)
  29: (1,1,2,1)
  41: (2,3,1)
  45: (2,1,2,1)
  49: (1,4,1)
  51: (1,3,1,1)
  53: (1,2,2,1)
  54: (1,2,1,2)
  55: (1,2,1,1,1)
  57: (1,1,3,1)
  59: (1,1,2,1,1)
  61: (1,1,1,2,1)
		

Crossrefs

For leaders of identical runs we have A335486, reverse A335485.
Matching 1-32 only gives A375138, reverse A375137, both counted by A374636.
Compositions of this type are counted by A375140, complement A188920.
The reverse version is A375295.
A003242 counts anti-runs, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A274174 counts contiguous compositions, ranks A374249.
A374637 counts compositions by sum of leaders of weakly 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, reverse A228351.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Run-length transform is A333627, sum A070939.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],!Greater@@First/@Split[Reverse[stc[#]],LessEqual]&]
    - or -
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,300],MatchQ[stc[#],{_,y_,z_,_,x_,_}/;x<=y
    				

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]&]

A374705 Number of integer compositions of n whose leaders of maximal strictly increasing runs sum to 2.

Original entry on oeis.org

0, 0, 2, 0, 2, 3, 4, 7, 8, 14, 17, 27, 33, 48, 63, 84, 112, 147, 191, 248, 322, 409, 527, 666, 845, 1062, 1336, 1666, 2079, 2579, 3190, 3936, 4842, 5933, 7259, 8854, 10768, 13074, 15826, 19120, 23048, 27728, 33279, 39879, 47686, 56916, 67818, 80667, 95777, 113552, 134396
Offset: 0

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.

Examples

			The a(0) = 0 through a(9) = 14 compositions:
  .  .  (2)   .  (112)  (23)   (24)    (25)    (26)    (27)
        (11)     (121)  (113)  (114)   (115)   (116)   (117)
                        (131)  (141)   (151)   (161)   (171)
                               (1212)  (1123)  (1124)  (234)
                                       (1213)  (1214)  (1125)
                                       (1231)  (1241)  (1134)
                                       (1312)  (1313)  (1215)
                                               (1412)  (1251)
                                                       (1314)
                                                       (1341)
                                                       (1413)
                                                       (1512)
                                                       (12123)
                                                       (12312)
		

Crossrefs

For leaders of weakly decreasing runs we have A004526.
The case of strict compositions is A096749.
For leaders of anti-runs we have column k = 2 of A374521.
Leaders of strictly increasing runs in standard compositions are A374683.
Ranked by positions of 2s in A374684.
Column k = 2 of A374700.
A003242 counts anti-run compositions.
A011782 counts 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[#,Less]]==2&]],{n,0,15}]
  • PARI
    seq(n)={my(A=O(x^(n-1)), q=eta(x^2 + A)/eta(x + A)); Vec((q*x/(1 + x))^2 + q*x^2/((1 + x)*(1 + x^2)), -n-1)} \\ Andrew Howroyd, Aug 14 2024

Formula

G.f.: (x*Q(x)/(1 + x))^2 + x^2*Q(x)/((1 + x)*(1 + x^2)), where Q(x) is the g.f. of A000009. - Andrew Howroyd, Aug 14 2024

Extensions

a(26) onwards from Andrew Howroyd, Aug 14 2024

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

A375407 Numbers k such that the k-th composition in standard order (row k of A066099) matches both of the dashed patterns 23-1 and 1-32.

Original entry on oeis.org

421, 649, 802, 809, 837, 843, 933, 1289, 1299, 1330, 1445, 1577, 1602, 1605, 1617, 1619, 1669, 1673, 1675, 1685, 1686, 1687, 1701, 1826, 1833, 1861, 1867, 1957, 2469, 2569, 2577, 2579, 2597, 2598, 2599, 2610, 2658, 2661, 2674, 2697, 2850, 2857, 2885, 2891
Offset: 1

Views

Author

Gus Wiseman, Aug 23 2024

Keywords

Comments

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.
These are also numbers k such that:
(1) the maximal weakly increasing runs in the reverse of the k-th composition in standard order do not have weakly decreasing leaders, and
(2) the maximal weakly increasing runs in the k-th composition in standard order do not have weakly decreasing leaders.

Examples

			Composition 89 is (2,1,3,1), which matches 2-3-1 but not 23-1.
Composition 165 is (2,3,2,1), which matches 23-1 but not 231.
Composition 358 is (2,1,3,1,2), which matches 2-3-1 and 1-3-2 but not 23-1 or 1-32.
The sequence together with corresponding compositions begins:
   421: (1,2,3,2,1)
   649: (2,4,3,1)
   802: (1,3,4,2)
   809: (1,3,2,3,1)
   837: (1,2,4,2,1)
   843: (1,2,3,2,1,1)
   933: (1,1,2,3,2,1)
  1289: (2,5,3,1)
  1299: (2,4,3,1,1)
  1330: (2,3,1,3,2)
  1445: (2,1,2,3,2,1)
  1577: (1,4,2,3,1)
  1602: (1,3,5,2)
  1605: (1,3,4,2,1)
  1617: (1,3,2,4,1)
  1619: (1,3,2,3,1,1)
		

Crossrefs

The non-dashed version is the intersection of A335482 and A335480.
Compositions of this type are counted by A375297.
For leaders of identical runs we have A375408, counted by A332834.
A003242 counts anti-runs, ranks A333489.
A011782 counts compositions.
A238130, A238279, A333755 count compositions by number of runs.
A335486 ranks compositions matching 21, reverse A335485.
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, reverse A228351.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Run-length transform is A333627, sum A070939.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,1000],MatchQ[stc[#],{_,y_,z_,_,x_,_}/;x_,x_,_,z_,y_,_}/;x
    				

Formula

Intersection of A375138 and A375137.
Previous Showing 31-40 of 41 results. Next