A345167 -id:A345167 - cp's OEIS frontend

A349051 Numbers k such that the k-th composition in standard order is an alternating permutation of {1..k} for some k.

0, 1, 5, 6, 38, 41, 44, 50, 553, 562, 582, 593, 610, 652, 664, 708, 788, 808, 16966, 17036, 17048, 17172, 17192, 17449, 17458, 17542, 17676, 17712, 17940, 18000, 18513, 18530, 18593, 18626, 18968, 18992, 19496, 19536, 20625, 20676, 20769, 20868, 21256, 22600

Offset: 1

Gus Wiseman, Nov 08 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).

			The sequence together with the corresponding compositions begins:
        0: ()
        1: (1)
        5: (2,1)
        6: (1,2)
       38: (3,1,2)
       41: (2,3,1)
       44: (2,1,3)
       50: (1,3,2)
      553: (4,2,3,1)
      562: (4,1,3,2)
      582: (3,4,1,2)
      593: (3,2,4,1)
      610: (3,1,4,2)
      652: (2,4,1,3)
      664: (2,3,1,4)
      708: (2,1,4,3)
      788: (1,4,2,3)
      808: (1,3,2,4)
    16966: (5,3,4,1,2)
    17036: (5,2,4,1,3)

Wikipedia, Alternating permutation

These permutations are counted by A001250, complement A348615.
Compositions of this type are counted by A025047, complement A345192.
Subset of A333218, which ranks permutations of initial intervals.
Subset of A345167, which ranks alternating compositions, complement A345168.
A003242 counts Carlitz (anti-run) compositions.
A345163 counts normal partitions with an alternating permutation.
A345164 counts alternating permutations of prime indices.
A345170 counts partitions with an alternating permutation.
Compositions in standard order are the rows of A066099:
- Number of parts is given by A000120, distinct A334028.
- Sum and product of parts are given by A070939 and A124758.
- Maximum and minimum parts are given by A333766 and A333768.
- GCD and LCM are given by A326674 and A333226.
- Maximal runs and anti-runs are counted by A124767 and A333381.
- Heinz number is given by A333219.
- Runs-resistance is given by A333628.
- Partitions and strict partitions are ranked by A114994 and A333256.
- Multisets and sets are ranked by A225620 and A333255.
- Strict and constant compositions are ranked by A233564 and A272919.
- Carlitz (anti-run) compositions are ranked by A333489.
Cf. A025048, A025049, A344604, A344615, A344653, A344742, A348377, A348379, A345165.

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];
Select[Range[0,1000],Sort[stc[#]]==Range[Length[stc[#]]]&&wigQ[stc[#]]&]

Equals A333218 (permutation) /\ A345167 (alternating).

A349795 Number of non-strict integer partitions of n that are constant or whose part multiplicities, except possibly the first and last, are all even.

Original entry on oeis.org

0, 0, 1, 1, 3, 4, 7, 9, 14, 17, 24, 29, 39, 46, 61, 69, 90, 103, 131, 147, 185, 207, 259, 286, 355, 391, 482, 528, 644, 706, 858, 933, 1129, 1228, 1477, 1597, 1916, 2072, 2473, 2668, 3168, 3415, 4047, 4347, 5133, 5514, 6488, 6952, 8162, 8738, 10226, 10936

Offset: 0

Gus Wiseman, Dec 06 2021

nonn

Also the number of weakly alternating non-strict 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. Equivalently, these are partitions that are weakly alternating but not strongly alternating.

			The a(2) = 1 through a(8) = 14 partitions:
  (11)  (111)  (22)    (221)    (33)      (322)      (44)
               (211)   (311)    (222)     (331)      (332)
               (1111)  (2111)   (411)     (511)      (422)
                       (11111)  (2211)    (2221)     (611)
                                (3111)    (4111)     (2222)
                                (21111)   (22111)    (3221)
                                (111111)  (31111)    (3311)
                                          (211111)   (5111)
                                          (1111111)  (22211)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

This is the restriction of A349060 to non-strict partitions.
The complement in non-strict partitions is A349796.
Permutations of prime factors of this type are counted by A349798.
The ordered version (compositions) is A349800, ranked by A349799.
These partitions are ranked by A350137.
A000041 counts integer partitions, non-strict A047967.
A001250 counts alternating permutations, complement A348615.
A025047 counts alternating compositions, also A025048 and A025049.
A096441 counts weakly alternating 0-appended partitions.
A345170 counts partitions w/ an alternating permutation, ranked by A345172.
A349053 counts non-weakly alternating compositions, complement A349052.
A349061 counts non-weakly alternating partitions, ranked by A349794.
A349801 counts non-alternating partitions.
Cf. A000070, A003242, A027383, A065033, A117298, A129852, A274230, A344614, A344615, A345165, A345167, A347548, A349056, A349057.

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

a(n > 0) = A349060(n) - A065033(n) = A349060(n) - floor(n/2).

a(n) = A047967(n) - A349796(n).

A349796 Number of non-strict 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, 0, 1, 2, 5, 8, 15, 23, 37, 52, 80, 109, 156, 208, 289, 378, 509, 654, 865, 1098, 1425, 1789, 2290, 2852, 3603, 4450, 5569, 6830, 8467, 10321, 12701, 15393, 18805, 22678, 27535, 33057, 39908, 47701, 57304, 68226, 81572, 96766, 115212, 136201

Offset: 0

Gus Wiseman, Dec 25 2021

nonn

Also the number of non-weakly alternating non-strict 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 involves the somewhat degenerate case where no strict increases are allowed.

			The a(7) = 1 through a(11) = 15 partitions:
  (3211)  (4211)   (3321)    (5311)     (4322)
          (32111)  (4311)    (6211)     (4421)
                   (5211)    (32221)    (5411)
                   (42111)   (33211)    (6311)
                   (321111)  (43111)    (7211)
                             (52111)    (42221)
                             (421111)   (43211)
                             (3211111)  (53111)
                                        (62111)
                                        (322211)
                                        (332111)
                                        (431111)
                                        (521111)
                                        (4211111)
                                        (32111111)

Counting all non-strict partitions gives A047967.
Signatures of this type are counted by A274230, complement A027383.
The strict instead of non-strict version is A347548, ranked by A350352.
The version for compositions allowing strict is A349053, ranked by A349057.
Allowing strict partitions gives A349061, complement A349060.
The complement in non-strict partitions is A349795.
These partitions are ranked by A350140 = A349794 \ A005117.
A000041 = integer partitions, strict A000009.
A001250 = alternating permutations, complement A348615.
A003242 = Carlitz (anti-run) compositions.
A025047 = alternating compositions, ranked by A345167.
A025048/A025049 = directed alternating compositions.
A096441 = weakly alternating 0-appended partitions.
A345170 = partitions w/ an alternating permutation, ranked by A345172.
A349052 = weakly alternating compositions.
A349056 = weakly alternating permutations of prime indices.
A349798 = weakly but not strongly alternating permutations of prime indices.
Cf. A000111, A002865, A117298, A117989, A129852, A129853, A345165, A345192, A349054, A349059, A349801.

whkQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]<=y[[m+1]],y[[m]]>=y[[m+1]]],{m,1,Length[y]-1}];
Table[Length[Select[IntegerPartitions[n],!whkQ[#]&&!whkQ[-#]&&!UnsameQ@@#&]],{n,0,30}]

a(n) = A349061(n) - A347548(n).

A349798 Number of weakly alternating ordered prime factorizations of n with at least two adjacent equal parts.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Dec 14 2021

nonn

We define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either. This sequence counts permutations of prime factors that are weakly but not strongly alternating. Alternating permutations of multisets are a generalization of alternating or up-down permutations of {1..n}.

			Using prime indices instead of factors, the a(n) ordered prime factorizations for selected n are:
n = 4    12    24     48      90     120     192       240      270
   ------------------------------------------------------------------
    11   112   1112   11112   1223   11132   1111112   111132   12232
         211   1121   11121   1322   11213   1111121   111213   13222
               1211   11211   2213   11312   1111211   111312   21223
               2111   12111   2231   21113   1112111   112131   21322
                      21111   3122   21311   1121111   113121   22132
                              3221   23111   1211111   121113   22213
                                     31112   2111111   121311   22231
                                     31211             131112   22312
                                                       131211   23122
                                                       211131   23221
                                                       213111   31222
                                                       231111   32212
                                                       311121
                                                       312111

Wikipedia, Alternating permutation

This is the weakly but not strictly alternating case of A008480.
Including alternating (in fact, anti-run) permutations gives A349056.
These partitions are counted by A349795, ranked by A350137.
A complementary version is A349796, ranked by A350140.
The version for compositions is A349800, ranked by A349799.
A001250 = alternating permutations, ranked by A349051, complement A348615.
A025047/A025048/A025049 = alternating compositions, ranked by A345167.
A056239 adds up prime indices, row sums of A112798, row lengths A001222.
A335452 = anti-run ordered prime factorizations.
A344652 = ordered prime factorizations w/o weakly increasing triples.
A345164 = alternating ordered prime factorizations, with twins A344606.
A345194 = alternating patterns, with twins A344605.
A349052/A129852/A129853 = weakly alternating compositions.
A349053 = non-weakly alternating compositions, ranked by A349057.
A349060 = weakly alternating partitions, complement A349061.
A349797 = non-weakly alternating ordered prime factorizations.
Cf. A005649, A096441, A335433, A335448, A344614, A344615, A345166, A345173, A345195, A348609, A349794, A349801.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
whkQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]<=y[[m+1]],y[[m]]>=y[[m+1]]],{m,1,Length[y]-1}];
Table[Length[Select[Permutations[primeMS[n]],(whkQ[#]||whkQ[-#])&&MatchQ[#,{_,x_,x_,_}]&]],{n,100}]

A349799 Numbers k such that the k-th composition in standard order is weakly alternating but has at least two adjacent equal parts.

Original entry on oeis.org

3, 7, 10, 11, 14, 15, 19, 21, 23, 26, 27, 28, 29, 30, 31, 35, 36, 39, 42, 43, 47, 51, 55, 56, 57, 58, 59, 60, 61, 62, 63, 67, 71, 73, 74, 79, 83, 84, 85, 86, 87, 90, 91, 94, 95, 99, 100, 103, 106, 111, 112, 113, 114, 115, 118, 119, 120, 121, 122, 123, 124, 125

Offset: 1

Gus Wiseman, Dec 15 2021

nonn

We define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either.
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.
This sequence ranks compositions that are weakly but not strongly alternating.

			The terms and corresponding compositions begin:
   3: (1,1)
   7: (1,1,1)
  10: (2,2)
  11: (2,1,1)
  14: (1,1,2)
  15: (1,1,1,1)
  19: (3,1,1)
  21: (2,2,1)
  23: (2,1,1,1)
  26: (1,2,2)
  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)

Wikipedia, Alternating permutation

Partitions of this type are counted by A349795, ranked by A350137.
Permutations of prime indices of this type are counted by A349798.
These compositions are counted by A349800.
A001250 = alternating permutations, ranked by A349051, complement A348615.
A003242 = Carlitz (anti-run) compositions, ranked by A333489.
A025047/A025048/A025049 = alternating compositions, ranked by A345167.
A261983 = non-anti-run compositions, ranked by A348612.
A345164 = alternating permutations of prime indices, with twins A344606.
A345165 = partitions without an alternating permutation, ranked by A345171.
A345170 = partitions with an alternating permutation, ranked by A345172.
A345166 = separable partitions with no alternations, ranked by A345173.
A345192 = non-alternating compositions, ranked by A345168.
A345195 = non-alternating anti-run compositions, ranked by A345169.
A349052/A129852/A129853 = weakly alternating compositions.
A349053 = non-weakly alternating compositions, ranked by A349057.
A349056 = weak alternations of prime indices, complement A349797.
A349060 = weak alternations of partitions, complement A349061.
Cf. A005649, A049774, A096441, A128761, A344615, A345163, A349054, A349058, A349796, A349801, A350140.

stc[n_]:=Differences[Prepend[Join@@Position[ Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
whkQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]<=y[[m+1]],y[[m]]>=y[[m+1]]],{m,1,Length[y]-1}];
Select[Range[0,100],(whkQ[stc[#]]||whkQ[-stc[#]])&&MatchQ[stc[#],{_,x_,x_,_}]&]

Equals A345168 \ A349057 = A348612 \ A349057.

A349794 Numbers whose prime signature has an odd term other than the first or last.

Original entry on oeis.org

30, 42, 60, 66, 70, 78, 84, 102, 105, 110, 114, 120, 130, 132, 138, 140, 150, 154, 156, 165, 168, 170, 174, 182, 186, 190, 195, 204, 210, 220, 222, 228, 230, 231, 238, 240, 246, 255, 258, 260, 264, 266, 270, 273, 276, 280, 282, 285, 286, 290, 294, 300, 308

Offset: 1

Gus Wiseman, Dec 06 2021

nonn

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

Also numbers whose multiset of prime factors is not weakly alternating, 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 decreases are allowed.

			The terms and their prime indices begin:
   30: {1,2,3}
   42: {1,2,4}
   60: {1,1,2,3}
   66: {1,2,5}
   70: {1,3,4}
   78: {1,2,6}
   84: {1,1,2,4}
  102: {1,2,7}
  105: {2,3,4}
  110: {1,3,5}
  114: {1,2,8}
  120: {1,1,1,2,3}
  130: {1,3,6}
  132: {1,1,2,5}
  138: {1,2,9}

The complement for compositions is A025047, ranked by A345167.
Signatures of this type are counted by A274230, complement A027383.
The strong case is A289553, complement A167171.
The strong case for compositions is A345192, ranked by A345168.
The version for compositions is A349053, ranked by A349057.
These partitions are counted by A349061, complement A349060, strong A349801.
The non-strict case is counted by A349795.
A001250 counts alternating permutations, complement A348615.
A096441 counts weakly alternating partitions if 0 is appended.
A345164 counts alternating permutations of prime indices, weak A349056.
A345170 counts partitions w/ an alternating permutation, ranked by A345172.
A349052 counts weakly alternating compositions.
A349059 counts weakly alternating ordered factorizations, strong A348610.
Cf. A003242, A112798, A114901, A117298, A128761, A129852, A129853, A344614, A344615, A345165, A349796, A349798.

Select[Range[100],PrimeNu[#]>1&&!And@@EvenQ/@Take[Last/@FactorInteger[#],{2,-2}]&]

A350138 Number of non-weakly alternating patterns of length n.

Original entry on oeis.org

0, 0, 0, 2, 32, 338, 3560, 40058, 492664, 6647666, 98210192, 1581844994, 27642067000, 521491848218, 10572345303576, 229332715217954, 5301688511602448, 130152723055769810, 3381930236770946120, 92738693031618794378, 2676532576838728227352

Offset: 0

Gus Wiseman, Dec 24 2021

nonn

We define a pattern to be a finite sequence covering an initial interval of positive integers. Patterns are counted by A000670 and ranked by A333217.
We define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either.
Conjecture: The directed cases, which count non-weakly up/down or non-weakly down/up patterns, are both equal to the strong case: A350252.

			The a(4) = 32 patterns:
  (1,1,2,3)  (2,1,1,2)  (3,1,1,2)  (4,1,2,3)
  (1,2,2,1)  (2,1,1,3)  (3,1,2,3)  (4,2,1,3)
  (1,2,3,1)  (2,1,2,3)  (3,1,2,4)  (4,3,1,2)
  (1,2,3,2)  (2,1,3,4)  (3,2,1,1)  (4,3,2,1)
  (1,2,3,3)  (2,3,2,1)  (3,2,1,2)
  (1,2,3,4)  (2,3,3,1)  (3,2,1,3)
  (1,2,4,3)  (2,3,4,1)  (3,2,1,4)
  (1,3,2,1)  (2,4,3,1)  (3,3,2,1)
  (1,3,3,2)             (3,4,2,1)
  (1,3,4,2)
  (1,4,3,2)

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

The unordered version is A274230, complement A052955.
The strong case of compositions is A345192, ranked by A345168.
The strict case is A348615, complement A001250.
For compositions we have A349053, complement A349052, ranked by A349057.
The complement is counted by A349058.
The version for partitions is A349061, complement A349060.
The version for permutations of prime indices: A349797, complement A349056.
The version for ordered factorizations is A350139, complement A349059.
The strong case is A350252, complement A345194. Also the directed case?
A003242 = Carlitz compositions, complement A261983, ranked by A333489.
A005649 = anti-run patterns, complement A069321.
A025047/A129852/A129853 = alternating compositions, ranked by A345167.
A345163 = normal partitions w/ alternating permutation, complement A345162.
A345170 = partitions w/ alternating permutation, complement A345165.
A349055 = normal multisets w/ alternating permutation, complement A349050.
Cf. A049774, A096441, A336103, A344605, A344614, A344615, A344740, A348610, A349794.

allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
whkQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]<=y[[m+1]],y[[m]]>=y[[m+1]]],{m,1,Length[y]-1}];
Table[Length[Select[Join@@Permutations/@allnorm[n],!whkQ[#]&&!whkQ[-#]&]],{n,0,6}]

R(n,k)={my(v=vector(k,i,1), u=vector(n)); for(r=1, n, if(r%2==0, my(s=v[k]); forstep(i=k, 2, -1, v[i] = s - v[i-1]); v[1] = s); for(i=2, k, v[i] += v[i-1]); u[r]=v[k]); u}
seq(n)= {concat([0], vector(n,i,1) + sum(k=1, n, (vector(n,i,k^i) - 2*R(n, k))*sum(r=k, n, binomial(r, k)*(-1)^(r-k)) ) )} \\ Andrew Howroyd, Jan 13 2024

a(n) = A000670(n) - A349058(n).

a(9) onwards from Andrew Howroyd, Jan 13 2024

A349801 Number of integer partitions of n into three or more parts or into two equal parts.

Original entry on oeis.org

0, 0, 1, 1, 3, 4, 8, 11, 18, 25, 37, 50, 71, 94, 128, 168, 223, 288, 376, 480, 617, 781, 991, 1243, 1563, 1945, 2423, 2996, 3704, 4550, 5589, 6826, 8333, 10126, 12293, 14865, 17959, 21618, 25996, 31165, 37318, 44562, 53153, 63239, 75153, 89111, 105535, 124730

Offset: 0

Gus Wiseman, Dec 23 2021

nonn

This sequence arose as the following degenerate case. If we define a sequence to be alternating if it is alternately strictly increasing and strictly decreasing, starting with either, then a(n) is the number of non-alternating integer partitions of n. Under this interpretation:
- The non-strict case is A047967, weak A349796, weak complement A349795.
- The complement is counted by A065033(n) = ceiling(n/2) for n > 0.
- These partitions are ranked by A289553 \ {1}, complement A167171 \/ {1}.
- The version for compositions is A345192, ranked by A345168.
- The weak version for compositions is A349053, ranked by A349057.
- The weak version is A349061, complement A349060, ranked by A349794.

			The a(2) = 1 through a(7) = 11 partitions:
  (11)  (111)  (22)    (221)    (33)      (322)
               (211)   (311)    (222)     (331)
               (1111)  (2111)   (321)     (421)
                       (11111)  (411)     (511)
                                (2211)    (2221)
                                (3111)    (3211)
                                (21111)   (4111)
                                (111111)  (22111)
                                          (31111)
                                          (211111)
                                          (1111111)

A000041 counts partitions, ordered A011782.
A001250 counts alternating permutations, complement A348615.
A004250 counts partitions into three or more parts, strict A347548.
A025047/A025048/A025049 count alternating compositions, ranked by A345167.
A096441 counts weakly alternating 0-appended partitions.
A345165 counts partitions w/ no alternating permutation, complement A345170.
Cf. A000070, A001700, A002865, A117298, A117989, A102726, A128761, A345162, A345163, A345166, A349798.

Table[Length[Select[IntegerPartitions[n],MatchQ[#,{x_,x_}|{,,__}]&]],{n,0,10}]

a(1) = 0; a(n > 0) = A000041(n) - ceiling(n/2).

A357185 Numbers k such that the k-th composition in standard order has the same length as the absolute value of its alternating sum.

Original entry on oeis.org

0, 1, 9, 12, 19, 22, 28, 34, 40, 69, 74, 84, 97, 104, 132, 135, 141, 144, 153, 177, 195, 198, 204, 216, 225, 240, 265, 271, 274, 283, 286, 292, 307, 310, 316, 321, 328, 355, 358, 364, 376, 386, 400, 451, 454, 460, 472, 496, 520, 523, 526, 533, 538, 544, 553

Offset: 1

Gus Wiseman, Sep 28 2022

nonn

A composition of n is a finite sequence of positive integers summing to n. 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 alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.

			The sequence together with the corresponding compositions begins:
    0: ()
    1: (1)
    9: (3,1)
   12: (1,3)
   19: (3,1,1)
   22: (2,1,2)
   28: (1,1,3)
   34: (4,2)
   40: (2,4)
   69: (4,2,1)
   74: (3,2,2)
   84: (2,2,3)
   97: (1,5,1)
  104: (1,2,4)
  132: (5,3)
  135: (5,1,1,1)
  141: (4,1,2,1)

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
For sum equal to twice alternating sum we have A348614, counted by A262977.
For product equal to sum we have A335404, counted by A335405.
These compositions are counted by A357183.
This is the absolute value version of A357184, counted by A357183.
A003242 counts anti-run compositions, ranked by A333489.
A011782 counts compositions.
A025047 counts alternating compositions, ranked by A345167.
A032020 counts strict compositions, ranked by A233564.
A124754 gives alternating sums of standard compositions.
A238279 counts compositions by sum and number of maximal runs.
A357136 counts compositions by alternating sum.
Cf. A000120, A070939, A114220, A114901, A178470, A242882, A262046, A301987.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Select[Range[0,100],Length[stc[#]]==Abs[ats[stc[#]]]&]

A348611 Number of ordered factorizations of n with no adjacent equal factors.

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, 14, 1, 3, 3, 6, 1, 13, 1, 7, 3, 3, 3, 17, 1, 3, 3, 14, 1, 13, 1, 6, 6, 3, 1, 29, 1, 6, 3, 6, 1, 14, 3, 14, 3, 3, 1, 36, 1, 3, 6, 14, 3, 13, 1, 6, 3, 13, 1, 45, 1, 3, 6, 6, 3, 13, 1, 29, 4, 3

Offset: 1

Gus Wiseman, Nov 07 2021

nonn

First differs from A348610 at a(24) = 14, A348610(24) = 12.
An ordered factorization of n is a finite sequence of positive integers > 1 with product n.
In analogy with Carlitz compositions, these may be called Carlitz ordered factorizations.

			The a(n) ordered factorizations without adjacent equal factors for n = 1, 6, 12, 16, 24, 30, 32, 36 are:
  ()   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*3*4   2*3*5           2*3*6
                             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   5*3*2           3*6*2
                             4*3*2                   6*2*3
                                                     6*3*2
                                                     2*3*2*3
                                                     3*2*3*2
Thus, of total A074206(12) = 8 ordered factorizations of 12, only factorizations 2*2*3 and 3*2*2 (see A348616) are not included in this count, therefore a(12) = 6. - _Antti Karttunen_, Nov 12 2021

The additive version (compositions) is A003242, complement A261983.
The additive alternating version is A025047, ranked by A345167.
Factorizations without a permutation of this type are counted by A333487.
As compositions these are ranked by A333489, complement A348612.
Factorizations with a permutation of this type are counted by A335434.
The non-alternating additive version is A345195, ranked by A345169.
The alternating case is A348610, which is dominated at positions A122181.
The complement is counted by A348616.
A001055 counts factorizations, strict A045778, ordered A074206.
A325534 counts separable partitions, ranked by A335433.
A335452 counts anti-run permutations of prime indices, complement A336107.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A348613 counts non-alternating ordered factorizations.
Cf. A001250, A138364, A336103, A347050, A347438, A347463, A347466, A347706, A348379, A348383.

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

A348611(n, e=0) = if(1==n, 1, my(s=0); fordiv(n, d, if((d>1)&&(d!=e), s += A348611(n/d, d))); (s)); \\ Antti Karttunen, Nov 12 2021

a(n) = A074206(n) - A348616(n).

cp's OEIS Frontend

A349051 Numbers k such that the k-th composition in standard order is an alternating permutation of {1..k} for some k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A349795 Number of non-strict integer partitions of n that are constant or whose part multiplicities, except possibly the first and last, are all even.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A349796 Number of non-strict 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

Formula

A349798 Number of weakly alternating ordered prime factorizations of n with at least two adjacent equal parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A349799 Numbers k such that the k-th composition in standard order is weakly alternating but has at least two adjacent equal parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A349794 Numbers whose prime signature has an odd term other than the first or last.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A350138 Number of non-weakly alternating patterns of length n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A349801 Number of integer partitions of n into three or more parts or into two equal parts.

Views

Author

Keywords

Comments