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-20 of 36 results. Next

A375123 Weakly increasing run-leader transformation for standard compositions.

Original entry on oeis.org

0, 1, 2, 1, 4, 5, 1, 1, 8, 9, 2, 5, 1, 3, 1, 1, 16, 17, 18, 9, 2, 5, 5, 5, 1, 3, 1, 3, 1, 3, 1, 1, 32, 33, 34, 17, 4, 37, 9, 9, 2, 5, 2, 5, 5, 11, 5, 5, 1, 3, 6, 3, 1, 3, 3, 3, 1, 3, 1, 3, 1, 3, 1, 1, 64, 65, 66, 33, 68, 69, 17, 17, 4, 9, 18, 37, 9, 19, 9, 9
Offset: 0

Views

Author

Gus Wiseman, Aug 02 2024

Keywords

Comments

The a(n)-th composition in standard order lists the leaders of weakly increasing runs of the n-th composition in standard order.
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 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 813th composition in standard order is (1,3,2,1,2,1), with weakly increasing runs ((1,3),(2),(1,2),(1)), with leaders (1,2,1,1). This is the 27th composition in standard order, so a(813) = 27.
		

Crossrefs

Positions of elements of A233564 are A374768, counted by A374632.
Positions of elements of A272919 are A374633, counted by A374631.
Ranks of rows of A374629.
The opposite version is A375124.
The strict version is A375125.
The strict opposite version is A375126.
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.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Run-length transform is A333627, sum A070939.
- Run-sum transformation is A353847.
- Run-compression transform is A373948, sum A373953, excess A373954.
- Ranks of contiguous compositions are A374249, counted by A274174.
Six types of runs:

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    stcinv[q_]:=Total[2^(Accumulate[Reverse[q]])]/2;
    Table[stcinv[First/@Split[stc[n],LessEqual]],{n,0,100}]

Formula

A000120(a(n)) = A124766(n).
A070939(a(n)) = A374630(n) for n > 0.
A065120(a(n)) = A065120(n).

A374759 Numbers k such that the leaders of strictly decreasing runs in the k-th composition in standard order are identical.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 15, 16, 17, 18, 21, 22, 31, 32, 33, 34, 36, 37, 42, 45, 63, 64, 65, 66, 68, 69, 73, 76, 85, 86, 90, 127, 128, 129, 130, 132, 133, 136, 137, 146, 148, 153, 170, 173, 181, 182
Offset: 1

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 18789th composition in standard order is (3,3,2,1,3,2,1), with strictly decreasing runs ((3),(3,2,1),(3,2,1)), with leaders (3,3,3), so 18789 is in the sequence.
The terms together with the corresponding compositions begin:
   0: ()
   1: (1)
   2: (2)
   3: (1,1)
   4: (3)
   5: (2,1)
   7: (1,1,1)
   8: (4)
   9: (3,1)
  10: (2,2)
  15: (1,1,1,1)
  16: (5)
  17: (4,1)
  18: (3,2)
  21: (2,2,1)
  22: (2,1,2)
  31: (1,1,1,1,1)
  32: (6)
  33: (5,1)
  34: (4,2)
  36: (3,3)
  37: (3,2,1)
		

Crossrefs

For leaders of anti-runs we have A374519 (counted by A374517).
For leaders of weakly increasing runs we have A374633, counted by A374631.
The opposite version is A374685 (counted by A374686).
The weak version is A374744.
Compositions of this type are counted by A374760.
For distinct instead of identical runs we have 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;
    Select[Range[0,100],SameQ@@First/@Split[stc[#],Greater]&]

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

A375124 Weakly decreasing run-leader transformation for standard compositions.

Original entry on oeis.org

0, 1, 2, 1, 4, 2, 6, 1, 8, 4, 2, 2, 12, 6, 6, 1, 16, 8, 4, 4, 20, 2, 10, 2, 24, 12, 6, 6, 12, 6, 6, 1, 32, 16, 8, 8, 4, 4, 18, 4, 40, 20, 2, 2, 20, 10, 10, 2, 48, 24, 12, 12, 52, 6, 26, 6, 24, 12, 6, 6, 12, 6, 6, 1, 64, 32, 16, 16, 8, 8, 34, 8, 72, 4, 4, 4, 36
Offset: 0

Views

Author

Gus Wiseman, Aug 02 2024

Keywords

Comments

The a(n)-th composition in standard order lists the leaders of weakly decreasing runs in the n-th composition in standard order.
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 813th composition in standard order is (1,3,2,1,2,1), with weakly decreasing runs ((1),(3,2,1),(2,1)), with leaders (1,3,2). This is the 50th composition in standard order, so a(813) = 50.
		

Crossrefs

Positions of elements of A233564 are A374701, counted by A374743.
Positions of elements of A272919 are A374744, counted by A374742.
Ranks of rows of A374740.
The opposite version is A375123.
The strict version is A375126.
The strict opposite version is A375125.
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) = A070939(n).
- 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.
- Run-sum transformation is A353847.
Six types of runs:

Programs

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

Formula

A000120(a(n)) = A124765(n).
A065120(a(n)) = A065120(n).
A070939(a(n)) = A374741(n).

A375125 Strictly increasing run-leader transformation for standard compositions.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 1, 7, 8, 9, 10, 11, 1, 3, 3, 15, 16, 17, 18, 19, 2, 21, 5, 23, 1, 3, 6, 7, 3, 7, 7, 31, 32, 33, 34, 35, 36, 37, 9, 39, 2, 5, 42, 43, 5, 11, 11, 47, 1, 3, 6, 7, 1, 13, 3, 15, 3, 7, 14, 15, 7, 15, 15, 63, 64, 65, 66, 67, 68, 69, 17, 71, 4, 73
Offset: 0

Views

Author

Gus Wiseman, Aug 02 2024

Keywords

Comments

The a(n)-th composition in standard order lists the leaders of strictly increasing runs in the n-th composition in standard order.
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 813th composition in standard order is (1,3,2,1,2,1), with strictly increasing runs ((1,3),(2),(1,2),(1)), with leaders (1,2,1,1). This is the 27th composition in standard order, so a(813) = 27.
		

Crossrefs

Positions of elements of A233564 are A374698, counted by A374687.
Positions of elements of A272919 are A374685, counted by A374686.
Ranks of rows of A374683.
The weak version is A375123.
The weak opposite version is A375124.
The opposite version is A375126.
Other transformations: A375127, A373948.
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) = A070939(n).
- Parts are listed by A066099.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Run-length transform is A333627.
- Run-compression transform is A373948, sum A373953, excess A373954.
- Ranks of contiguous compositions are A374249, counted by A274174.
- Run-sum transformation is A353847.
Six types of runs:

Programs

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

Formula

A000120(a(n)) = A124768(n).
A065120(a(n)) = A065120(n).
A070939(a(n)) = A374684(n).

A375126 Strictly decreasing run-leader transformation for standard compositions.

Original entry on oeis.org

0, 1, 2, 3, 4, 2, 6, 7, 8, 4, 10, 5, 12, 6, 14, 15, 16, 8, 4, 9, 20, 10, 10, 11, 24, 12, 26, 13, 28, 14, 30, 31, 32, 16, 8, 17, 36, 4, 18, 19, 40, 20, 42, 21, 20, 10, 22, 23, 48, 24, 12, 25, 52, 26, 26, 27, 56, 28, 58, 29, 60, 30, 62, 63, 64, 32, 16, 33, 8, 8
Offset: 0

Views

Author

Gus Wiseman, Aug 02 2024

Keywords

Comments

The a(n)-th composition in standard order lists the leaders of strictly decreasing runs in the n-th composition in standard order.
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.
Does this sequence contain all nonnegative integers?

Examples

			The 813th composition in standard order is (1,3,2,1,2,1), with strictly decreasing runs ((1),(3,2,1),(2,1)), with leaders (1,3,2). This is the 50th composition in standard order, so a(813) = 50.
		

Crossrefs

Positions of elements of A233564 are A374767, counted by A374761.
Positions of elements of A272919 are A374759, counted by A374760.
Ranks of rows of A374757 (row-sums A374758).
The weak opposite version is A375123.
The weak version is A375124.
The opposite version is A375125.
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) = A070939(n).
- Parts are listed by A066099.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Run-length transform is A333627.
- Run-compression transform is A373948, sum A373953, excess A373954.
- Ranks of contiguous compositions are A374249, counted by A274174.
- Run-sum transformation is A353847.
Six types of runs:

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    stcinv[q_]:=Total[2^(Accumulate[Reverse[q]])]/2;
    Table[stcinv[First/@Split[stc[n],Greater]],{n,0,100}]

Formula

A000120(a(n)) = A124769(n).
A065120(a(n)) = A065120(n).
A070939(a(n)) = A374758(n).

A375127 The anti-run-leader transformation for standard compositions.

Original entry on oeis.org

0, 1, 2, 3, 4, 2, 1, 7, 8, 4, 10, 5, 1, 1, 3, 15, 16, 8, 4, 9, 2, 10, 2, 11, 1, 1, 6, 3, 3, 3, 7, 31, 32, 16, 8, 17, 36, 4, 4, 19, 2, 2, 42, 21, 2, 2, 5, 23, 1, 1, 1, 3, 1, 6, 1, 7, 3, 3, 14, 7, 7, 7, 15, 63, 64, 32, 16, 33, 8, 8, 8, 35, 4, 36, 18, 9, 4, 4, 9
Offset: 0

Views

Author

Gus Wiseman, Aug 02 2024

Keywords

Comments

The a(n)-th composition in standard order lists the leaders of anti-runs of the n-th composition in standard order.
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.
Does this sequence contain all nonnegative integers?

Examples

			The 346th composition in standard order is (2,2,1,2,2), with anti-runs ((2),(2,1,2),(2)), with leaders (2,2,2). This is the 42nd composition in standard order, so a(346) = 42.
		

Crossrefs

Positions of elements of A233564 are A374638, counted by A374518.
Positions of elements of A272919 are A374519, counted by A374517.
Ranks of rows of A374515.
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) = A070939(n).
- Parts are listed by A066099.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Run-length transform is A333627.
- Run-compression transform is A373948, sum A373953, excess A373954.
- Ranks of contiguous compositions are A374249, counted by A274174.
- Run-sum transform is A353847.
Six types of runs:

Programs

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

Formula

A000120(a(n)) = A333381(n).
A065120(a(n)) = A065120(n).
A070939(a(n)) = A374516(n).

A374758 Sum of leaders of strictly decreasing runs in the n-th composition in standard order.

Original entry on oeis.org

0, 1, 2, 2, 3, 2, 3, 3, 4, 3, 4, 3, 4, 3, 4, 4, 5, 4, 3, 4, 5, 4, 4, 4, 5, 4, 5, 4, 5, 4, 5, 5, 6, 5, 4, 5, 6, 3, 5, 5, 6, 5, 6, 5, 5, 4, 5, 5, 6, 5, 4, 5, 6, 5, 5, 5, 6, 5, 6, 5, 6, 5, 6, 6, 7, 6, 5, 6, 4, 4, 6, 6, 7, 6, 5, 4, 6, 5, 6, 6, 7, 6, 5, 6, 7, 6, 6
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 maximal strictly decreasing subsequences of the 1234567th composition in standard order are ((3,2,1),(2),(2,1),(2),(5,1),(1),(1)) with leaders (3,2,2,2,5,1,1), so a(1234567) = 16.
		

Crossrefs

Row sums of A374757.
For leaders of constant runs we have A373953.
For leaders of anti-runs we have A374516.
For leaders of weakly increasing runs we have A374630.
For length instead of sum we have A124769.
The opposite version is A374684, sum of A374683 (length A124768).
The case of partitions ranked by Heinz numbers is A374706.
The weak version is A374741, sum of A374740 (length A124765).
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.
- Number of adjacent equal pairs is A124762, unequal A333382.
- Run-length transform is A333627, sum A070939.
- Run-compression transform is A373948.
- 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[Total[First/@Split[stc[n],Greater]],{n,0,100}]

A373957 Greatest number of runs in a permutation of the prime factors of n.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 06 2024

Keywords

Comments

If n belongs to A335433 (the separable case), then a(n) = A001222(n). A multiset is separable iff it has a permutation that is an anti-run (meaning there are no adjacent equal parts).

Examples

			The prime factors of 24 are {2,2,2,3}, with permutations (2,2,2,3), (2,2,3,2), (2,3,2,2), (3,2,2,2), with runs:
  ((2,2,2),(3))
  ((2,2),(3),(2))
  ((2),(3),(2,2))
  ((3),(2,2,2))
with lengths (2,3,3,2), with maximum a(24) = 3.
		

Crossrefs

The minimum instead of maximum is A001221.
Positions of 2 are A006881.
Positions of first appearances appear to be A026549.
Positions of 1 are A246655.
The variation A374246 is the difference from bigomega (A001222).
The variation A374247 is the difference with omega (A001221).
This is the last position of a positive term in row n of A374252.
A001221 counts distinct prime factors, A001222 with multiplicity.
A008480 counts permutations of prime factors.
A056239 adds up prime indices, row sums of A112798.
A124767 counts runs in standard compositions, anti-runs A333381.
A304038 is run-compression of prime indices, sums A066328, factors A027748.
A333755 counts compositions by number of runs.
A335433 lists numbers whose prime factors are separable, complement A335448.

Programs

  • Mathematica
    prifacs[n_]:=If[n==1,{},Flatten[ConstantArray@@@FactorInteger[n]]];
    Table[Max@@Table[Length[Split[y]],{y,Permutations[prifacs[n]]}],{n,100}]

Formula

a(n) = A374247(n) - A001221(n).
a(n) = A001222(n) - A374246(n).

A376308 Run-compression of the sequence of first differences of prime-powers.

Original entry on oeis.org

1, 2, 1, 2, 3, 1, 2, 4, 2, 1, 5, 4, 2, 4, 2, 4, 6, 2, 3, 4, 2, 6, 2, 6, 8, 4, 2, 4, 2, 4, 8, 4, 2, 1, 3, 6, 2, 10, 2, 6, 4, 2, 4, 6, 2, 10, 2, 4, 2, 12, 4, 2, 4, 6, 2, 8, 5, 1, 6, 2, 6, 4, 2, 6, 4, 14, 4, 2, 4, 14, 6, 4, 2, 4, 6, 2, 6, 4, 6, 8, 4, 8, 10, 2, 10
Offset: 1

Views

Author

Gus Wiseman, Sep 20 2024

Keywords

Comments

We define the run-compression of a sequence to be the anti-run obtained by reducing each run of repeated parts to a single part. Alternatively, run-compression removes all parts equal to the part immediately to their left. For example, (1,1,2,2,1) has run-compression (1,2,1).

Examples

			The sequence of prime-powers (A246655) is:
  2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, ...
The sequence of first differences (A057820) of prime-powers is:
  1, 1, 1, 2, 1, 1, 2, 2, 3, 1, 2, 4, 2, 2, 2, 2, 1, 5, 4, 2, 4, 2, 4, ...
The run-compression is A376308 (this sequence).
		

Crossrefs

For primes instead of prime-powers we have A037201, halved A373947.
For squarefree numbers instead of prime-powers we have A376305.
For run-lengths instead of compression we have A376309.
For run-sums instead of compression we have A376310.
For positions of first appearances we have A376341, sorted A376340.
A000040 lists the prime numbers, differences A001223.
A000961 and A246655 list prime-powers, differences A057820.
A003242 counts compressed compositions, ranks A333489.
A024619 and A361102 list non-prime-powers, differences A375708.
A116861 counts partitions by compressed sum, by compressed length A116608.
A373948 encodes compression using compositions in standard order.

Programs

  • Mathematica
    First/@Split[Differences[Select[Range[100],PrimePowerQ]]]
Previous Showing 11-20 of 36 results. Next