A333382 -id:A333382 - cp's OEIS frontend

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

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

Gus Wiseman, Jul 31 2024

nonn

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.

			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.

Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

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:
- Count: A124766, A124765, A124768, A124769, A333381, A124767.
- Rank: A375123, A375124, A375125, A375126, A375127, A373948.
Cf. A029931, A228351, A233564, A238343, A272919, A373949, A374517, A374518, A374519, A374638.

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

Gus Wiseman, Aug 09 2024

nonn

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.

			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)

Wikipedia, Permutation pattern.

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.
- Run-counts: A124766, A124765, A124768, A124769, A333381, A124767.
- Run-leaders: A374629, A374740, A374683, A374757, A374515, A374251.
Cf. A056823, A106356, A188919, A238343, A333213, A335466, A373948, A373953, A374633, A375123, A375139, A374768.

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

A333629 Least k such that the runs-resistance of the k-th composition in standard order is n.

Original entry on oeis.org

1, 3, 5, 11, 27, 93, 859, 13789, 1530805, 1567323995

Offset: 0

Gus Wiseman, Mar 31 2020

A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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.

For the operation of taking the sequence of run-lengths of a finite sequence, runs-resistance is defined as the number of applications required to reach a singleton.

			The sequence together with the corresponding compositions begins:
        1: (1)
        3: (1,1)
        5: (2,1)
       11: (2,1,1)
       27: (1,2,1,1)
       93: (2,1,1,2,1)
      859: (1,2,2,1,2,1,1)
    13789: (1,2,2,1,1,2,1,1,2,1)
  1530805: (2,1,1,2,2,1,2,1,1,2,1,2,2,1)
For example, starting with 13789 and repeatedly applying A333627 gives: 13789 -> 859 -> 110 -> 29 -> 11 -> 6 -> 3 -> 2, corresponding to the compositions: (1,2,2,1,1,2,1,1,2,1) -> (1,2,2,1,2,1,1) -> (1,2,1,1,2) -> (1,1,2,1) -> (2,1,1) -> (1,2) -> (1,1) -> (2).

Claude Lenormand, Deux transformations sur les mots, Preprint, 5 pages, Nov 17 2003.

Positions of first appearances in A333628 = number of times applying A333627 to reach a power of 2, starting with n.
A subsequence of A333630.
All of the following pertain to compositions in standard order (A066099):
- The length is A000120.
- The partial sums from the right are A048793.
- The sum is A070939.
- Adjacent equal pairs are counted by A124762.
- Equal runs are counted by A124767.
- Strict compositions are ranked by A233564.
- The partial sums from the left are A272020.
- Constant compositions are ranked by A272919.
- Normal compositions are ranked by A333217.
- Heinz number is A333219.
- Anti-runs are counted by A333381.
- Adjacent unequal pairs are counted by A333382.
Cf. A029931, A098504, A114994, A225620, A228351, A238279, A242882, A318928, A329744, A329747, A333489.

nn=1000;
stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
stcrun[n_]:=Total[2^(Accumulate[Reverse[Length/@Split[stc[n]]]])]/2;
seq=Table[Length[NestWhileList[stcrun,n,Length[stc[#]]>1&]]-1,{n,nn}];
Table[Position[seq,i][[1,1]],{i,Union[seq]}]

a(9) from Amiram Eldar, Aug 04 2025

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

Gus Wiseman, Aug 06 2024

nonn

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.

			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)

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:
- Count: A124766, A124765, A124768, A124769, A333381, A124767.
- Leaders: A374629, A374740, A374683, A374757, A374515, A374251.
- Rank: A375123, A375124, A375125, A375126, A375127, A373948.
Cf. A029931, A114994, A228351, A233564, A238343, A272919, A335466, A373949.

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

A333630 Least STC-number of a composition whose sequence of run-lengths has STC-number n.

Original entry on oeis.org

0, 1, 3, 5, 7, 14, 11, 13, 15, 30, 43, 29, 23, 46, 27, 45, 31, 62, 122, 61, 87, 117, 59, 118, 47, 94, 107, 93, 55, 110, 91, 109, 63, 126, 250, 125, 343, 245, 123, 246, 175, 350, 235, 349, 119, 238, 347, 237, 95, 190, 378, 189, 215, 373, 187, 374, 111, 222, 363

Offset: 0

Gus Wiseman, Mar 31 2020

nonn

All terms belong to A003754.

A composition of n is a finite sequence of positive integers summing to n. The composition with STC-number k (row k of 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.

			The sequence together with the corresponding compositions begins:
   0: ()
   1: (1)
   3: (1,1)
   5: (2,1)
   7: (1,1,1)
  14: (1,1,2)
  11: (2,1,1)
  13: (1,2,1)
  15: (1,1,1,1)
  30: (1,1,1,2)
  43: (2,2,1,1)
  29: (1,1,2,1)
  23: (2,1,1,1)
  46: (2,1,1,2)
  27: (1,2,1,1)
  45: (2,1,2,1)
  31: (1,1,1,1,1)
  62: (1,1,1,1,2)

Position of first appearance of n in A333627.
All of the following pertain to compositions in standard order (A066099):
- The length is A000120.
- Compositions without terms > 2 are A003754.
- Compositions without ones are ranked by A022340.
- The partial sums from the right are A048793.
- The sum is A070939.
- Adjacent equal pairs are counted by A124762.
- Equal runs are counted by A124767.
- Strict compositions are ranked by A233564.
- The partial sums from the left are A272020.
- Constant compositions are ranked by A272919.
- Normal compositions are ranked by A333217.
- Heinz number is A333219.
- Anti-runs are counted by A333381.
- Adjacent unequal pairs are counted by A333382.
- Runs-resistance is A333628.
- First appearances of run-resistances are A333629.
Cf. A029931, A098504, A114994, A225620, A228351, A238279, A242882, A318928, A329744, A329747, A333489.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
seq=Table[Total[2^(Accumulate[Reverse[Length/@Split[stc[n]]]])]/2,{n,0,1000}];
Table[Position[seq,i][[1,1]],{i,First[Split[Union[seq],#1+1==#2&]]}]-1

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

Gus Wiseman, Aug 12 2024

nonn

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.

			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)

Wikipedia, Permutation pattern.
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

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.
- Run-counts: A124766, A124765, A124768, A124769, A333381, A124767.
- Run-leaders: A374629, A374740, A374683, A374757, A374515, A374251.
Cf. A056823, A106356, A188919, A189076, A238343, A261982, A333213, A335480, A335482, A373948, A374746, A374768, A375123.

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

Gus Wiseman, Aug 13 2024

nonn

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.

			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)

Wikipedia, Permutation pattern.
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

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.
- Run-counts: A124766, A124765, A124768, A124769, A333381, A124767.
- Run-leaders: A374629, A374740, A374683, A374757, A374515, A374251.
Cf. A056823, A106356, A188919, A189076, A238343, A333213, A335480, A335482, A373948, A374630, A374633, A374768, A375123.

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

A386577 Irregular triangle read by rows where T(n,k) is the number of permutations of the multiset of prime factors of n with k adjacent equal terms.

Original entry on oeis.org

1, 1, 0, 1, 1, 2, 0, 1, 0, 0, 1, 0, 1, 2, 0, 1, 1, 2, 0, 1, 2, 0, 2, 0, 0, 0, 0, 1, 1, 1, 2, 0, 1, 1, 2, 0, 2, 0, 2, 0, 1, 0, 2, 2, 0, 0, 1, 2, 0, 0, 0, 1, 1, 2, 0, 1, 6, 0, 0, 1, 0, 0, 0, 0, 1, 2, 0, 2, 0, 2, 0, 2, 2, 2, 0, 1, 2, 0, 2, 0, 0, 2, 2, 0, 1

Offset: 1

Gus Wiseman, Aug 01 2025

Are the rows all unimodal?

Counts permutations of prime factors by "inseparability". For "separability" we have A374252.

			The prime indices of 12 are {1,1,2}, and we have:
- 1 permutation (1,2,1) with 0 adjacent equal parts
- 2 permutations (1,1,2), (2,1,1) with 1 adjacent equal part
- 0 permutations with 2 adjacent equal parts
so row 12 is (1,2,0).
Row 48 counts the following permutations:
  .  .  (1,1,1,2,1)  (1,1,1,1,2)  .
        (1,1,2,1,1)  (2,1,1,1,1)
        (1,2,1,1,1)
Row 144 counts the following permutations:
  .  (1,1,2,1,2,1)  (1,1,1,2,1,2)  (1,1,1,2,2,1)  (1,1,1,1,2,2)  .
     (1,2,1,1,2,1)  (1,1,2,1,1,2)  (1,1,2,2,1,1)  (2,2,1,1,1,1)
     (1,2,1,2,1,1)  (1,2,1,1,1,2)  (1,2,2,1,1,1)
                    (2,1,1,1,2,1)  (2,1,1,1,1,2)
                    (2,1,1,2,1,1)
                    (2,1,2,1,1,1)
Triangle begins:
   1:
   2: 1
   3: 1
   4: 0  1
   6: 1
   6: 2  0
   7: 1
   8: 0  0  1
   9: 0  1
  10: 2  0
  11: 1
  12: 1  2  0
  13: 1
  14: 2  0
  15: 2  0
  16: 0  0  0  1
  17: 1
  18: 1  2  0
  19: 1
  20: 1  2  0
  21: 2  0
  22: 2  0
  23: 1
  24: 0  2  2  0

Row lengths are A001222.
The minima of each row are A010051.
Sorted positions of first appearances appear to be A025487.
Column k = last is A069513.
Row sums are A168324 or A008480.
The number of trailing zeros in each row is A297155 = A001221-1.
Column k = 1 is A335452.
The number of leading zeros in each row is A374246.
For separability instead of inseparability we have A374252.
For a multiset with prescribed multiplicities we have A386578, separability A386579.
A003242 and A335452 count anti-runs, ranks A333489, patterns A005649.
A025065(n - 2) counts partitions of inseparable type, ranks A335126, sums of A386586.
A124762 gives inseparability of standard compositions, separability A333382.
A325534 counts separable multisets, ranks A335433, sums of A386583.
A325535 counts inseparable multisets, ranks A335448, sums of A386584.
A336106 counts partitions of separable type, ranks A335127, sums of A386585.
Cf. A001221, A051903, A051904, A106351, A238130, A336102, A373957, A382525, A386581, A386632.

Table[Length[Select[Permutations[Flatten[ConstantArray@@@FactorInteger[n]]],Function[q,Length[Select[Range[Length[q]-1],q[[#]]==q[[#+1]]&]]==k]]],{n,30},{k,0,PrimeOmega[n]-1}]

A386579 Number of permutations of row n of A305936 (a multiset whose multiplicities are the prime indices of n) with k adjacent unequal parts.

Original entry on oeis.org

1, 1, 0, 0, 2, 1, 0, 0, 0, 2, 1, 1, 0, 0, 0, 0, 0, 6, 0, 2, 2, 2, 0, 2, 2, 0, 1, 0, 0, 0, 0, 0, 0, 6, 6, 1, 0, 0, 0, 0, 0, 0, 2, 3, 0, 0, 0, 2, 3, 4, 1, 0, 0, 0, 24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 6, 12, 12, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 12, 2, 0, 2, 4, 6, 3, 0

Offset: 2

Gus Wiseman, Aug 04 2025

Row 1 is empty, so offset is 2.
Same as A386578 with rows reversed.
This multiset (row n of A305936) is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			Row n = 21 counts the following permutations:
  .  111122  111221  111212  112121  .
     221111  112211  112112  121121
             122111  121112  121211
             211112  211121
                     211211
                     212111
Triangle begins:
  .
  1
  1  0
  0  2
  1  0  0
  0  2  1
  1  0  0  0
  0  0  6
  0  2  2  2
  0  2  2  0
  1  0  0  0  0
  0  0  6  6
  1  0  0  0  0  0
  0  2  3  0  0
  0  2  3  4  1
  0  0  0 24
  1  0  0  0  0  0  0
  0  0  6 12 12
  1  0  0  0  0  0  0  0
  0  0  6 12  2
  0  2  4  6  3  0

Column k = 0 is A010051.
Row lengths are A056239.
Row sums are A318762.
Column k = last is A335125.
For prime indices we have A374252, reverse A386577.
Reversing all rows gives A386578.
A003242 and A335452 count anti-runs, ranks A333489, patterns A005649.
A025065(n - 2) counts partitions of inseparable type, ranks A335126, sums of A386586.
A124762 gives inseparability of standard compositions, separability A333382.
A305936 is a multiset whose multiplicities are the prime indices of n.
A325534 counts separable multisets, ranks A335433, sums of A386583.
A325535 counts inseparable multisets, ranks A335448, sums of A386584.
A336106 counts partitions of separable type, ranks A335127, sums of A386585.
Cf. A001221, A001222, A003963, A051903, A051904, A106351, A112798, A238130, A336102, A373957, A386581.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
ugt[c_,x_]:=Select[Permutations[c],Function[q,Length[Select[Range[Length[q]-1],q[[#]]!=q[[#+1]]&]]==x]];
Table[Table[Length[ugt[nrmptn[n],k]],{k,0,Length[nrmptn[n]]-1}],{n,30}]

A336108 Number of compositions of 2*n with n maximal runs.

Original entry on oeis.org

1, 2, 4, 14, 36, 99, 274, 813, 2278, 6692, 19206, 56687, 164416, 486052, 1422654, 4214023, 12408476, 36825663, 108926976, 323856358, 961177042, 2862551860, 8518115200, 25407468667, 75763113682, 226297498429, 675951314988, 2021528322571, 6046881759308, 18104307275968, 54219605813884

Offset: 0

Gus Wiseman, Sep 04 2020

nonn

			The a(0) = 1 through a(3) = 14 compositions:
  ()  (2)    (1,3)    (1,2,3)
      (1,1)  (3,1)    (1,3,2)
             (1,1,2)  (1,4,1)
             (2,1,1)  (2,1,3)
                      (2,3,1)
                      (3,1,2)
                      (3,2,1)
                      (1,1,3,1)
                      (1,2,2,1)
                      (1,3,1,1)
                      (2,1,1,2)
                      (1,1,1,2,1)
                      (1,1,2,1,1)
                      (1,2,1,1,1)

Andrew Howroyd, Table of n, a(n) for n = 0..200

A333755 has this as main diagonal n = 2*k.
A337504 is the version for anti-runs.
A337505 is the version for anti-run patterns.
A337564 is the version for patterns.
A003242 counts anti-run compositions.
A011782 counts compositions.
A106356 counts compositions by number of adjacent equal parts.
A124767 counts maximal runs in standard compositions.
A238343 counts compositions by descents.
A272919 ranks runs.
A333213 counts compositions by weak ascents.
A333769 gives run-lengths of standard compositions.
Cf. A066099, A124762, A235998, A238130, A238279, A333381, A333382, A333489.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[2*n],Length[Split[#]]==n&]],{n,0,10}]

a(n)={polcoef(polcoef((1 - y)/(1 - y - y*sum(d=1, 2*n, (1-y)^d*x^d/(1 - x^d) + O(x^(2*n+1)))),  2*n, x), n, y)} \\ Andrew Howroyd, Feb 02 2021

a(n) = A333755(2*n,n).

a(n) = [x^(2*n)*y^n] (1 - y)/(1 - y - y*Sum_{d>=1} (1-y)^d*x^d/(1 - x^d)). - Andrew Howroyd, Feb 02 2021

Terms a(11) and beyond from Andrew Howroyd, Feb 02 2021

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A333629 Least k such that the runs-resistance of the k-th composition in standard order is n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A333630 Least STC-number of a composition whose sequence of run-lengths has STC-number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A386577 Irregular triangle read by rows where T(n,k) is the number of permutations of the multiset of prime factors of n with k adjacent equal terms.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A386579 Number of permutations of row n of A305936 (a multiset whose multiplicities are the prime indices of n) with k adjacent unequal parts.