A345167 -id:A345167 - cp's OEIS frontend

A351596 Numbers k such that the k-th composition in standard order has all distinct run-lengths.

0, 1, 2, 3, 4, 7, 8, 10, 11, 14, 15, 16, 19, 21, 23, 26, 28, 30, 31, 32, 35, 36, 39, 42, 47, 56, 60, 62, 63, 64, 67, 71, 73, 74, 79, 84, 85, 87, 95, 100, 106, 112, 119, 120, 122, 123, 124, 126, 127, 128, 131, 135, 136, 138, 143, 146, 159, 164, 168, 170, 171

Offset: 1

Gus Wiseman, Feb 24 2022

nonn

The n-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 n, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The terms together with their binary expansions and corresponding compositions begin:
   0:      0  ()
   1:      1  (1)
   2:     10  (2)
   3:     11  (1,1)
   4:    100  (3)
   7:    111  (1,1,1)
   8:   1000  (4)
  10:   1010  (2,2)
  11:   1011  (2,1,1)
  14:   1110  (1,1,2)
  15:   1111  (1,1,1,1)
  16:  10000  (5)
  19:  10011  (3,1,1)
  21:  10101  (2,2,1)
  23:  10111  (2,1,1,1)

The version using binary expansions is A044813.
The version for Heinz numbers and prime multiplicities is A130091.
These compositions are counted by A329739, normal A329740.
The version for runs instead of run-lengths is A351290, counted by A351013.
A005811 counts runs in binary expansion, distinct A297770.
A011782 counts integer compositions.
A085207 represents concatenation of standard compositions, reverse A085208.
A333489 ranks anti-runs, complement A348612.
A345167 ranks alternating compositions, counted by A025047.
A351204 counts partitions where every permutation has all distinct runs.
Counting words with all distinct run-lengths:
- A032020 = binary expansions, for runs A351018.
- A351017 = binary words, for runs A351016.
- A351292 = patterns, for runs A351200.
Selected statistics of standard compositions (A066099, A228351):
- Length is A000120.
- Sum is A070939.
- Runs are counted by A124767, distinct A351014.
- Heinz number is A333219.
- Number of distinct parts is A334028.
Cf. A098859, A106356, A175413, A238279, A242882, A328592, A329745, A333628, A350952, A351015, A351202.

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

A357182 Number of integer compositions of n with the same length as their alternating sum.

Original entry on oeis.org

1, 1, 0, 0, 1, 3, 1, 4, 6, 20, 13, 48, 50, 175, 141, 512, 481, 1719, 1491, 5400, 4929, 17776, 15840, 57420, 52079, 188656, 169989, 617176, 559834, 2033175, 1842041, 6697744, 6085950, 22139780, 20123989, 73262232, 66697354, 242931321, 221314299, 806516560

Offset: 0

Gus Wiseman, Sep 28 2022

nonn

A composition of n is a finite sequence of positive integers summing to n.

The alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.

			The a(1) = 1 through a(8) = 6 compositions:
  (1)  (31)  (113)  (42)  (124)  (53)
             (212)        (223)  (1151)
             (311)        (322)  (2141)
                          (421)  (3131)
                                 (4121)
                                 (5111)

For product instead of length we have A114220.
For sum equal to twice alternating sum we have A262977, ranked by A348614.
For product equal to sum we have A335405, ranked by A335404.
For absolute value we have A357183.
These compositions are ranked by A357184.
The case of partitions is A357189.
A003242 counts anti-run compositions, ranked by A333489.
A011782 counts compositions.
A025047 counts alternating compositions, ranked by A345167.
A124754 gives alternating sums of standard compositions.
A238279 counts compositions by sum and number of maximal runs.
A261983 counts non-anti-run compositions.
A357136 counts compositions by alternating sum.
Cf. A000120, A032020, A070939, A106356, A114901, A131044, A178470, A233564, A242882, A262046, A301987.

ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Length[#]==ats[#]&]],{n,0,15}]

a(21)-a(39) from Alois P. Heinz, Sep 29 2022

A348610 Number of alternating ordered factorizations of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 6, 1, 3, 3, 4, 1, 6, 1, 6, 3, 3, 1, 12, 1, 3, 3, 6, 1, 11, 1, 7, 3, 3, 3, 15, 1, 3, 3, 12, 1, 11, 1, 6, 6, 3, 1, 23, 1, 6, 3, 6, 1, 12, 3, 12, 3, 3, 1, 28, 1, 3, 6, 12, 3, 11, 1, 6, 3, 11, 1, 33, 1, 3, 6, 6, 3, 11, 1, 23, 4, 3

Offset: 1

Gus Wiseman, Nov 05 2021

nonn

An ordered factorization of n is a finite sequence of positive integers > 1 with product n.

A sequence is alternating if it is alternately strictly increasing and strictly decreasing, starting with either. For example, the partition (3,2,2,2,1) has no alternating permutations, even though it does have the anti-run permutations (2,3,2,1,2) and (2,1,2,3,2).

			The alternating ordered factorizations of n = 1, 6, 12, 16, 24, 30, 32, 36:
  ()   6     12      16      24      30      32      36
       2*3   2*6     2*8     3*8     5*6     4*8     4*9
       3*2   3*4     8*2     4*6     6*5     8*4     9*4
             4*3     2*4*2   6*4     10*3    16*2    12*3
             6*2             8*3     15*2    2*16    18*2
             2*3*2           12*2    2*15    2*8*2   2*18
                             2*12    3*10    4*2*4   3*12
                             2*4*3   2*5*3           2*6*3
                             2*6*2   3*2*5           2*9*2
                             3*2*4   3*5*2           3*2*6
                             3*4*2   5*2*3           3*4*3
                             4*2*3                   3*6*2
                                                     6*2*3
                                                     2*3*2*3
                                                     3*2*3*2

Wikipedia, Alternating permutation

The additive version (compositions) is A025047 ranked by A345167.
The complementary additive version is A345192, ranked by A345168.
Dominated by A348611 (the anti-run version) at positions A122181.
The complement is counted by A348613.
A001055 counts factorizations, strict A045778, ordered A074206.
A001250 counts alternating permutations, complement A348615.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A345165 counts partitions w/o an alternating permutation, ranked by A345171.
A345170 counts partitions w/ an alternating permutation, ranked by A345172.
A347463 counts ordered factorizations with integer alternating product.
A348379 counts factorizations w/ an alternating permutation.
A348380 counts factorizations w/o an alternating permutation.
Cf. A038548, A049774, A056986, A102726, A128761, A344614, A347050, A347464, A347706, A348383.

ordfacs[n_]:=If[n<=1,{{}},Join@@Table[Prepend[#,d]&/@ordfacs[n/d],{d,Rest[Divisors[n]]}]];
wigQ[y_]:=Or[Length[y]==0,Length[Split[y]] == Length[y]&&Length[Split[Sign[Differences[y]]]]==Length[y]-1];
Table[Length[Select[ordfacs[n],wigQ]],{n,100}]

A351290 Numbers k such that the k-th composition in standard order has all distinct runs.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 47, 48, 50, 51, 52, 55, 56, 57, 58, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 78

Offset: 1

Gus Wiseman, Feb 10 2022

nonn

The n-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 n, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The terms together with their binary expansions and corresponding compositions begin:
   0:      0  ()
   1:      1  (1)
   2:     10  (2)
   3:     11  (1,1)
   4:    100  (3)
   5:    101  (2,1)
   6:    110  (1,2)
   7:    111  (1,1,1)
   8:   1000  (4)
   9:   1001  (3,1)
  10:   1010  (2,2)
  11:   1011  (2,1,1)
  12:   1100  (1,3)
  14:   1110  (1,1,2)
  15:   1111  (1,1,1,1)

Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)

The version for Heinz numbers and prime multiplicities is A130091.
The version using binary expansions is A175413, complement A351205.
The version for run-lengths instead of runs is A329739.
These compositions are counted by A351013.
The complement is A351291.
A005811 counts runs in binary expansion, distinct A297770.
A011782 counts integer compositions.
A044813 lists numbers whose binary expansion has distinct run-lengths.
A085207 represents concatenation of standard compositions, reverse A085208.
A333489 ranks anti-runs, complement A348612.
A345167 ranks alternating compositions, counted by A025047.
A351204 counts partitions where every permutation has all distinct runs.
Counting words with all distinct runs:
- A351016 = binary words, for run-lengths A351017.
- A351018 = binary expansions, for run-lengths A032020.
- A351200 = patterns, for run-lengths A351292.
- A351202 = permutations of prime factors.
Selected statistics of standard compositions:
- Length is A000120.
- Parts are A066099, reverse A228351.
- Sum is A070939.
- Runs are counted by A124767, distinct A351014.
- Heinz number is A333219.
- Number of distinct parts is A334028.
Selected classes of standard compositions:
- Partitions are A114994, strict A333256.
- Multisets are A225620, strict A333255.
- Strict compositions are A233564.
- Constant compositions are A272919.
Cf. A098859, A106356, A113835, A116608, A238279, A242882, A318928, A325545, A328592, A329745, A350952, A351015, A351201.

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

A347706 Number of factorizations of n that are not a twin (x*x) nor have an alternating permutation.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Oct 28 2021

nonn

First differs from A348381 at a(216) = 4, A348381(216) = 3.
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
A sequence is alternating if it is alternately strictly increasing and strictly decreasing, starting with either. For example, the partition (3,2,2,2,1) has no alternating permutations, even though it does have the anti-run permutations (2,3,2,1,2) and (2,1,2,3,2). Alternating permutations of multisets are a generalization of alternating or up-down permutations of sets.

			The a(n) factorizations for n = 96, 192, 2160, 576:
  2*2*2*12      3*4*4*4         3*3*3*80       4*4*4*9
  2*2*2*2*6     2*2*2*24        6*6*6*10       2*2*2*72
  2*2*2*2*2*3   2*2*2*2*12      2*2*2*270      2*2*2*2*36
                2*2*2*2*2*6     2*3*3*3*40     2*2*2*2*4*9
                2*2*2*2*3*4     2*2*2*2*135    2*2*2*2*6*6
                2*2*2*2*2*2*3   2*2*2*2*3*45   2*2*2*2*2*18
                                2*2*2*2*5*27   2*2*2*2*3*12
                                2*2*2*2*9*15   2*2*2*2*2*2*9
                                               2*2*2*2*2*3*6
                                               2*2*2*2*2*2*3*3

Wikipedia, Alternating permutation

Positions of nonzero terms are A046099.
Partitions of this type are counted by A344654, ranked by A344653.
Partitions not of this type are counted by A344740, ranked by A344742.
The complement is counted by A347050, without twins A348379.
The version for compositions is A348377.
The version allowing twins is A348380.
The inseparable case is A348381.
A001055 counts factorizations, strict A045778, ordered A074206.
A001250 counts alternating permutations of sets.
A025047 counts alternating or wiggly compositions, ranked by A345167.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A347438 counts factorizations with alternating product 1, additive A119620.
A348610 counts alternating ordered factorizations.
Cf. A049774, A325535, A336103, A344614, A347437, A347439, A347442, A347456, A347463, A348382, A348383.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],Function[f,Select[Permutations[f],!MatchQ[#,{_,x_,y_,z_,_}/;x<=y<=z||x>=y>=z]&]=={}]]],{n,100}]

a(2^n) = A344654(n).

A348613 Number of non-alternating ordered factorizations of n.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 2, 0, 0, 0, 4, 0, 2, 0, 2, 0, 0, 0, 8, 1, 0, 1, 2, 0, 2, 0, 9, 0, 0, 0, 11, 0, 0, 0, 8, 0, 2, 0, 2, 2, 0, 0, 25, 1, 2, 0, 2, 0, 8, 0, 8, 0, 0, 0, 16, 0, 0, 2, 20, 0, 2, 0, 2, 0, 2, 0, 43, 0, 0, 2, 2, 0, 2, 0, 25, 4, 0, 0, 16, 0

Offset: 1

Gus Wiseman, Nov 03 2021

nonn

An ordered factorization of n is a finite sequence of positive integers > 1 with product n.

A sequence is alternating if it is alternately strictly increasing and strictly decreasing, starting with either.

			The a(n) ordered factorizations for n = 4, 12, 16, 24, 32, 36:
  2*2   2*2*3   4*4       2*2*6     2*2*8       6*6
        3*2*2   2*2*4     2*3*4     2*4*4       2*2*9
                4*2*2     4*3*2     4*4*2       2*3*6
                2*2*2*2   6*2*2     8*2*2       3*3*4
                          2*2*2*3   2*2*2*4     4*3*3
                          2*2*3*2   2*2*4*2     6*3*2
                          2*3*2*2   2*4*2*2     9*2*2
                          3*2*2*2   4*2*2*2     2*2*3*3
                                    2*2*2*2*2   2*3*3*2
                                                3*2*2*3
                                                3*3*2*2

Wikipedia, Alternating permutation

The complementary additive version is A025047, ranked by A345167.
The additive version is A345192, ranked by A345168, without twins A348377.
The complement is counted by A348610.
A001055 counts factorizations, strict A045778, ordered A074206.
A001250 counts alternating permutations.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A345165 counts partitions without an alternating permutation, ranked by A345171.
A345170 counts partitions with an alternating permutation, ranked by A345172.
A348379 counts factorizations w/ an alternating permutation, with twins A347050.
A348380 counts factorizations w/o an alternating permutation, w/o twins A347706.
A348611 counts anti-run ordered factorizations.
Cf. A038548, A056986, A344614, A344653, A344654, A344740, A347437, A347438, A347463, A348381, A348609.

ordfacs[n_]:=If[n<=1,{{}},Join@@Table[Prepend[#,d]&/@ordfacs[n/d],{d,Rest[Divisors[n]]}]];
wigQ[y_]:=Or[Length[y]==0,Length[Split[y]]==Length[y]&&Length[Split[Sign[Differences[y]]]]==Length[y]-1];
Table[Length[Select[ordfacs[n],!wigQ[#]&]],{n,100}]

A344742 Numbers whose prime factors have a permutation with no consecutive monotone triple, i.e., no triple (..., x, y, z, ...) such that either x <= y <= z or x >= y >= z.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77

Offset: 1

Gus Wiseman, Jun 12 2021

nonn

Differs from A335433 in having all squares of primes (A001248) and lacking 270 etc.
Also Heinz numbers of integer partitions that are either a twin (x,x) or have a wiggly permutation.
(1) The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
(2) A sequence is wiggly if it is alternately strictly increasing and strictly decreasing, starting with either. For example, the partition (3,2,2,2,1) has no wiggly permutations, even though it has anti-run permutations (2,3,2,1,2) and (2,1,2,3,2).

			The sequence of terms together with their prime indices begins:
      1: {}          18: {1,2,2}     36: {1,1,2,2}
      2: {1}         19: {8}         37: {12}
      3: {2}         20: {1,1,3}     38: {1,8}
      4: {1,1}       21: {2,4}       39: {2,6}
      5: {3}         22: {1,5}       41: {13}
      6: {1,2}       23: {9}         42: {1,2,4}
      7: {4}         25: {3,3}       43: {14}
      9: {2,2}       26: {1,6}       44: {1,1,5}
     10: {1,3}       28: {1,1,4}     45: {2,2,3}
     11: {5}         29: {10}        46: {1,9}
     12: {1,1,2}     30: {1,2,3}     47: {15}
     13: {6}         31: {11}        49: {4,4}
     14: {1,4}       33: {2,5}       50: {1,3,3}
     15: {2,3}       34: {1,7}       51: {2,7}
     17: {7}         35: {3,4}       52: {1,1,6}
For example, the prime factors of 120 are (2,2,2,3,5), with the two wiggly permutations (2,3,2,5,2) and (2,5,2,3,2), so 120 is in the sequence.

Positions of nonzero terms in A344606.
The complement is A344653, counted by A344654.
These partitions are counted by A344740.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A001248 lists squares of primes.
A001250 counts wiggly permutations.
A003242 counts anti-run compositions.
A011782 counts compositions.
A025047 counts wiggly compositions (ascend: A025048, descend: A025049).
A056239 adds up prime indices,  row sums of A112798.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A344604 counts wiggly compositions with twins.
A345164 counts wiggly permutations of prime indices.
A345165 counts partitions without a wiggly permutation, ranked by A345171.
A345170 counts partitions with a wiggly permutation, ranked by A345172.
A345192 counts non-wiggly compositions.
Cf. A000070, A001222, A071321, A071322, A316523, A316524, A344605, A344614, A344616, A344652, A345163, A345166, A345167, A345173.

Select[Range[100],Select[Permutations[Flatten[ConstantArray@@@FactorInteger[#]]],!MatchQ[#,{_,x_,y_,z_,_}/;x<=y<=z||x>=y>=z]&]!={}&]

Union of A345172 (wiggly) and A001248 (squares of primes).

A349061 Number of integer partitions of n with at least one part of odd multiplicity that is not the first or last.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 2, 4, 8, 13, 21, 32, 48, 67, 99, 133, 185, 245, 333, 432, 574, 732, 957, 1208, 1554, 1941, 2468, 3060, 3844, 4731, 5893, 7204, 8898, 10816, 13268, 16043, 19546, 23523, 28497, 34150, 41147, 49106, 58892, 70020, 83597, 99047, 117778, 139087

Offset: 0

Gus Wiseman, Dec 06 2021

nonn

Also the number of non-weakly alternating integer partitions of n, where we define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either. This sequence looks at the somewhat degenerate case where no strict increases are allowed.

			The a(6) = 1 through a(10) = 13 partitions:
  (321)  (421)   (431)    (432)     (532)
         (3211)  (521)    (531)     (541)
                 (4211)   (621)     (631)
                 (32111)  (3321)    (721)
                          (4311)    (4321)
                          (5211)    (5311)
                          (42111)   (6211)
                          (321111)  (32221)
                                    (33211)
                                    (43111)
                                    (52111)
                                    (421111)
                                    (3211111)

The strong version for compositions is A345192, ranked by A345168.
The version for compositions is A349053, ranked by A349057.
The complement is counted by A349060.
These partitions are ranked by A349794.
The non-strict case is A349796, complement A349795.
The strong case is A349801.
A000041 counts integer partitions.
A001250 counts alternating permutations, complement A348615.
A003242 counts Carlitz (anti-run) compositions.
A025047 counts alternating compositions, ranked by A345167.
A025048 and A025049 count directed alternating compositions.
A096441 counts weakly alternating 0-appended partitions.
A345170 counts partitions w/ an alternating permutation, ranked by A345172.
A349052 counts weakly alternating compositions.
A349056 counts weakly alternating permutations of prime indices.
A349798 counts weakly but not strongly alternating perms of prime indices.
Cf. A002865, A027383, A117298, A117989, A129852, A129853, A274230, A333213, A344615, A345165, A349059.

Table[Length[Select[IntegerPartitions[n], !SameQ@@#&&!And@@EvenQ/@Take[Length/@Split[#],{2,-2}]&]],{n,0,30}]

A351291 Numbers k such that the k-th composition in standard order does not have all distinct runs.

Original entry on oeis.org

13, 22, 25, 45, 46, 49, 53, 54, 59, 76, 77, 82, 89, 91, 93, 94, 97, 101, 102, 105, 108, 109, 110, 115, 118, 141, 148, 150, 153, 156, 162, 165, 166, 173, 177, 178, 180, 181, 182, 183, 187, 189, 190, 193, 197, 198, 201, 204, 205, 209, 210, 213, 214, 216, 217

Offset: 1

Gus Wiseman, Feb 12 2022

nonn

The n-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 n, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

			The terms together with their binary expansions and corresponding compositions begin:
  13:     1101  (1,2,1)
  22:    10110  (2,1,2)
  25:    11001  (1,3,1)
  45:   101101  (2,1,2,1)
  46:   101110  (2,1,1,2)
  49:   110001  (1,4,1)
  53:   110101  (1,2,2,1)
  54:   110110  (1,2,1,2)
  59:   111011  (1,1,2,1,1)
  76:  1001100  (3,1,3)
  77:  1001101  (3,1,2,1)
  82:  1010010  (2,3,2)
  89:  1011001  (2,1,3,1)
  91:  1011011  (2,1,2,1,1)
  93:  1011101  (2,1,1,2,1)
  94:  1011110  (2,1,1,1,2)

Mathematics Stack Exchange, What is a sequence run? (answered 2011-12-01)

The version for Heinz numbers of partitions is A130092, complement A130091.
Normal multisets with a permutation of this type appear to be A283353.
Partitions w/o permutations of this type are A351204, complement A351203.
The version using binary expansions is A351205, complement A175413.
The complement is A351290, counted by A351013.
A005811 counts runs in binary expansion, distinct A297770.
A011782 counts integer compositions.
A044813 lists numbers whose binary expansion has all distinct run-lengths.
A085207 represents concatenation of standard compositions, reverse A085208.
A333489 ranks anti-runs, complement A348612, counted by A003242.
A345167 ranks alternating compositions, counted by A025047.
Counting words with all distinct runs:
- A351016 = binary words, for run-lengths A351017.
- A351018 = binary expansions, for run-lengths A032020.
- A351200 = patterns, for run-lengths A351292.
- A351202 = permutations of prime factors.
Selected statistics of standard compositions (A066099, reverse A228351):
- Length is A000120.
- Sum is A070939.
- Runs are counted by A124767, distinct A351014.
- Heinz number is A333219.
- Number of distinct parts is A334028.
Selected classes of standard compositions:
- Partitions are A114994, strict A333256.
- Multisets are A225620, strict A333255.
- Strict compositions are A233564.
- Constant compositions are A272919.
Cf. A098859, A106356, A113835, A116608, A238279, A242882, A318928, A325545, A328592, A329745, A350952, A351015, A351201.

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

A345169 Numbers k such that the k-th composition in standard order is a non-alternating anti-run.

Original entry on oeis.org

37, 52, 69, 101, 104, 105, 133, 137, 150, 165, 180, 197, 200, 208, 209, 210, 261, 265, 274, 278, 300, 301, 308, 325, 328, 357, 360, 361, 389, 393, 400, 401, 406, 416, 417, 418, 421, 422, 436, 517, 521, 529, 530, 534, 549, 550, 556, 557, 564, 581, 600, 601, 613

Offset: 1

Gus Wiseman, Jun 15 2021

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.
A sequence is alternating if it is alternately strictly increasing and strictly decreasing, starting with either. For example, the partition (3,2,2,2,1) has no alternating permutations, even though it does have the anti-run permutations (2,3,2,1,2) and (2,1,2,3,2).
An anti-run (separation or Carlitz composition) is a sequence with no adjacent equal parts.

			The sequence of terms together with their binary indices begins:
     37: (3,2,1)      210: (1,2,3,2)      400: (1,3,5)
     52: (1,2,3)      261: (6,2,1)        401: (1,3,4,1)
     69: (4,2,1)      265: (5,3,1)        406: (1,3,2,1,2)
    101: (1,3,2,1)    274: (4,3,2)        416: (1,2,6)
    104: (1,2,4)      278: (4,2,1,2)      417: (1,2,5,1)
    105: (1,2,3,1)    300: (3,2,1,3)      418: (1,2,4,2)
    133: (5,2,1)      301: (3,2,1,2,1)    421: (1,2,3,2,1)
    137: (4,3,1)      308: (3,1,2,3)      422: (1,2,3,1,2)
    150: (3,2,1,2)    325: (2,4,2,1)      436: (1,2,1,2,3)
    165: (2,3,2,1)    328: (2,3,4)        517: (7,2,1)
    180: (2,1,2,3)    357: (2,1,3,2,1)    521: (6,3,1)
    197: (1,4,2,1)    360: (2,1,2,4)      529: (5,4,1)
    200: (1,3,4)      361: (2,1,2,3,1)    530: (5,3,2)
    208: (1,2,5)      389: (1,5,2,1)      534: (5,2,1,2)
    209: (1,2,4,1)    393: (1,4,3,1)      549: (4,3,2,1)

Wikipedia, Alternating permutation

A version counting partitions is A345166, ranked by A345173.
These compositions are counted by A345195.
A001250 counts alternating permutations, complement A348615.
A003242 counts anti-run compositions.
A005649 counts anti-run patterns.
A025047 counts alternating or wiggly compositions, also A025048, A025049.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A345164 counts alternating permutations of prime indices.
A345165 counts partitions w/o an alternating permutation, ranked by A345171.
A345170 counts partitions w/ an alternating permutation, ranked by A345172.
A345192 counts non-alternating compositions.
A345194 counts alternating patterns (with twins: A344605).
Statistics of standard compositions:
- Length is A000120.
- Constant runs are A124767.
- Heinz number is A333219.
- Anti-runs are A333381.
- Runs-resistance is A333628.
- Number of distinct parts is A334028.
- Non-anti-runs are A348612.
Classes of standard compositions:
- Weakly decreasing compositions (partitions) are A114994.
- Weakly increasing compositions (multisets) are A225620.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Strictly increasing compositions (sets) are A333255.
- Strictly decreasing compositions (strict partitions) are A333256.
- Anti-runs are A333489.
- Alternating compositions are A345167.
- Non-Alternating compositions are A345168.
Cf. A001222, A008965, A238279, A344614, A344615, A344652, A344653, A344654, A345162, A345163, A345193, A348609, A348613.

stc[n_]:=Differences[Prepend[Join@@Position[ Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
wigQ[y_]:=Or[Length[y]==0,Length[Split[y]]== Length[y]&&Length[Split[Sign[Differences[y]]]]==Length[y]-1];
sepQ[y_]:=!MatchQ[y,{_,x_,x_,_}];
Select[Range[0,1000],sepQ[stc[#]]&&!wigQ[stc[#]]&]

Intersection of A345168 (non-alternating) and A333489 (anti-run).

cp's OEIS Frontend

A351596 Numbers k such that the k-th composition in standard order has all distinct run-lengths.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357182 Number of integer compositions of n with the same length as their alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A348610 Number of alternating ordered factorizations of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A351290 Numbers k such that the k-th composition in standard order has all distinct runs.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A347706 Number of factorizations of n that are not a twin (x*x) nor have an alternating permutation.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A348613 Number of non-alternating ordered factorizations of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A344742 Numbers whose prime factors have a permutation with no consecutive monotone triple, i.e., no triple (..., x, y, z, ...) such that either x <= y <= z or x >= y >= z.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A349061 Number of integer partitions of n with at least one part of odd multiplicity that is not the first or last.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica