A261983 -id:A261983 - cp's OEIS frontend

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

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.

A244164 Number of compositions of n in which the minimal multiplicity of parts equals 1.

Original entry on oeis.org

1, 1, 3, 6, 15, 23, 53, 94, 203, 404, 855, 1648, 3416, 6662, 13400, 26406, 53038, 105306, 212051, 422162, 849267, 1696864, 3406077, 6807024, 13642099, 27268122, 54576003, 109096436, 218250874, 436243705, 872533347, 1744312748, 3488432736, 6974783481

Offset: 1

Alois P. Heinz, Jun 21 2014

nonn

			From _Gus Wiseman_, Nov 25 2019: (Start)
The a(1) = 1 through a(5) = 15 compositions:
  (1)  (2)  (3)    (4)      (5)
            (1,2)  (1,3)    (1,4)
            (2,1)  (3,1)    (2,3)
                   (1,1,2)  (3,2)
                   (1,2,1)  (4,1)
                   (2,1,1)  (1,1,3)
                            (1,2,2)
                            (1,3,1)
                            (2,1,2)
                            (2,2,1)
                            (3,1,1)
                            (1,1,1,2)
                            (1,1,2,1)
                            (1,2,1,1)
                            (2,1,1,1)
(End)

Alois P. Heinz and Vaclav Kotesovec, Table of n, a(n) for n = 1..2000 (first 400 terms from Alois P. Heinz)
Vaclav Kotesovec, Graph a(n)/2^n

Column k=1 of A242451.
The complement is counted by A240085.
Cf. A003242, A098504, A114901, A261983, A329740, A329741.

b:= proc(n, i, p, k) option remember; `if`(n=0, p!, `if`(i<1, 0,
      add(b(n-i*j, i-1, p+j, k)/j!, j=[0, $max(1, k)..n/i])))
    end:
a:= n-> b(n$2, 0, 1) -b(n$2, 0, 2):
seq(a(n), n=1..50);

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Min@@Length/@Split[Sort[#]]==1&]],{n,0,10}] (* Gus Wiseman, Nov 25 2019 *)

a(n) = 2^(n-1) - A240085(n). - Gus Wiseman, Nov 25 2019

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

A329863 Number of compositions of n with cuts-resistance 2.

Original entry on oeis.org

0, 0, 1, 0, 3, 6, 9, 22, 47, 88, 179, 354, 691, 1344, 2617, 5042, 9709, 18632, 35639, 68010, 129556, 246202, 467188, 885036, 1674211, 3163094, 5969022, 11251676, 21189382, 39867970, 74950464, 140798302, 264313039, 495861874, 929709687, 1742193854, 3263069271, 6108762316

Offset: 0

Gus Wiseman, Nov 23 2019

nonn

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

For the operation of shortening all runs by 1, cuts-resistance is defined to be the number of applications required to reach an empty word.

			The a(2) = 1 through a(7) = 22 compositions (empty column not shown):
  (1,1)  (2,2)    (1,1,3)    (3,3)      (1,1,5)
         (1,1,2)  (1,2,2)    (1,1,4)    (1,3,3)
         (2,1,1)  (2,2,1)    (4,1,1)    (2,2,3)
                  (3,1,1)    (1,1,2,2)  (3,2,2)
                  (1,1,2,1)  (1,1,3,1)  (3,3,1)
                  (1,2,1,1)  (1,2,2,1)  (5,1,1)
                             (1,3,1,1)  (1,1,2,3)
                             (2,1,1,2)  (1,1,3,2)
                             (2,2,1,1)  (1,1,4,1)
                                        (1,4,1,1)
                                        (2,1,1,3)
                                        (2,1,2,2)
                                        (2,2,1,2)
                                        (2,3,1,1)
                                        (3,1,1,2)
                                        (3,2,1,1)
                                        (1,1,2,1,2)
                                        (1,1,2,2,1)
                                        (1,2,1,1,2)
                                        (1,2,2,1,1)
                                        (2,1,1,2,1)
                                        (2,1,2,1,1)

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

Column k = 2 of A329861.
Compositions with cuts-resistance 1 are A003242.
Compositions with runs-resistance 2 are A329745.
Numbers whose binary expansion has cuts-resistance 2 are A329862.
Binary words with cuts-resistance 2 are conjectured to be A027383.
Cuts-resistance of binary expansion is A319416.
Binary words counted by cuts-resistance are A319421 and A329860.
Cf. A000975, A003242, A032020, A114901, A240085, A261983, A319420, A329738, A329744, A329864.

degdep[q_]:=Length[NestWhileList[Join@@Rest/@Split[#]&,q,Length[#]>0&]]-1;
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],degdep[#]==2&]],{n,0,10}]

Ca(N) = {1/(1-sum(k=1, N, x^k/(1+x^k)))}
A_x(N) = {my(x='x+O('x^N)); concat([0,0],Vec(-1+(1+sum(m=1,N, Ca(N)*x^(2*m)*(Ca(N)-1)/(1+x^m*(2+x^m*(1+Ca(N))))))/(1-sum(m=1,N, Ca(N)*x^(2*m)/(1+x^m*(2+x^m*(1+Ca(N))))))))}
A_x(38) \\ John Tyler Rascoe, Feb 20 2025

G.f.: -1 + (1 + Ca(x) * Sum_{m>0} x^(2*m) * (Ca(x)-1)/(1 + x^m * (2 + x^m * (1+Ca(x)))))/(1 - Ca(x) * Sum_{m>0} x^(2*m)/(1 + x^m * (2 + x^m * (1+Ca(x))))) where Ca(x) is the g.f. for A003242. - John Tyler Rascoe, Feb 20 2025

a(21) onwards from John Tyler Rascoe, Feb 20 2025

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).

A348382 Number of compositions of n that are not a twin (x,x) but have adjacent equal parts.

Original entry on oeis.org

0, 0, 0, 1, 3, 9, 17, 41, 88, 185, 387, 810, 1669, 3435, 7039, 14360, 29225, 59347, 120228, 243166, 491085, 990446, 1995409, 4016259, 8076959, 16231746, 32599773, 65437945, 131293191, 263316897, 527912139, 1058061751, 2120039884, 4246934012, 8505864639

Offset: 0

Gus Wiseman, Nov 05 2021

nonn

A composition with no adjacent equal parts is also called a Carlitz composition, so these are non-twin, non-Carlitz compositions.

			The a(3) = 1 through a(6) = 17 compositions:
  (111)  (112)   (113)    (114)
         (211)   (122)    (222)
         (1111)  (221)    (411)
                 (311)    (1113)
                 (1112)   (1122)
                 (1121)   (1131)
                 (1211)   (1221)
                 (2111)   (1311)
                 (11111)  (2112)
                          (2211)
                          (3111)
                          (11112)
                          (11121)
                          (11211)
                          (12111)
                          (21111)
                          (111111)

A. Knopfmacher and H. Prodinger, On Carlitz Compositions, Europ. J. Combinatorics (1998) 19, 579-589.
Wikipedia, Composition (combinatorics)

Allowing twins gives A261983, complement A003242.
The non-alternating case is A348377, difference A345195.
These compositions are ranked by A348612 \ A007582.
A001250 counts alternating permutations, complement A348615.
A007582 ranks twin compositions.
A011782 counts compositions, strict A032020.
A025047 counts alternating or wiggly compositions, complement A345192.
A051049 counts non-twin compositions, complement A000035(n+1).
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
Cf. A000070, A005649, A059841, A106356, A238279, A333755, A344604, A344614, A344740, A348381.

nn=15;CoefficientList[Series[1+x/(1-2x)-x^2/(1-x^2)-1/(1-Sum[x^k/(1+x^k),{k,1,nn}]),{x,0,nn}],x]

For n > 0, a(n) = A261983(n) - A059841(n).

O.g.f.: 1 + x/(1-2x) - x^2/(1-x^2) - 1/(1 - Sum_{k>0} x^k/(1+x^k)).

A353427 Numbers k such that the k-th composition in standard order has all run-lengths > 1.

Original entry on oeis.org

0, 3, 7, 10, 15, 31, 36, 42, 43, 58, 63, 87, 122, 127, 136, 147, 170, 171, 175, 228, 234, 235, 250, 255, 292, 295, 343, 351, 471, 484, 490, 491, 506, 511, 528, 547, 586, 591, 676, 682, 683, 687, 698, 703, 904, 915, 938, 939, 943, 983, 996, 1002, 1003, 1018

Offset: 1

Gus Wiseman, May 16 2022

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.

			The terms and corresponding compositions begin:
     0: ()
     3: (1,1)
     7: (1,1,1)
    10: (2,2)
    15: (1,1,1,1)
    31: (1,1,1,1,1)
    36: (3,3)
    42: (2,2,2)
    43: (2,2,1,1)
    58: (1,1,2,2)
    63: (1,1,1,1,1,1)
    87: (2,2,1,1,1)
   122: (1,1,1,2,2)
   127: (1,1,1,1,1,1,1)

The version for partitions is A001694, counted by A007690.
The version for parts instead of lengths is A022340, counted by A212804.
These compositions are counted by A114901.
A subset of A348612 (counted by A261983).
The case of all run-lengths = 2 is A351011.
The case of all run-lengths > 2 is counted by A353400.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order, reverse A228351.
Statistics of standard compositions:
- Length is A000120, sum A070939.
- Runs are counted by A124767.
- Runs-resistance is A333628.
- Run-lengths are A333769.
Cf. A044813, A128695, A165413, A240085, A244164, A274174, A318928, A333489, A333755, A353402, A353432.

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

A353854 Length of the trajectory of the composition run-sum transformation (condensation) of the n-th composition in standard order.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 3, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 3, 2, 3, 2, 2, 1, 1, 1, 2, 2, 1, 1, 3, 1, 1, 2, 2, 1, 1, 3, 2, 1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 2, 3, 3, 2, 2, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 3, 1, 1, 3, 2, 1, 1, 1, 2, 2, 2, 2

Offset: 0

Gus Wiseman, Jun 01 2022

nonn

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). The run-sum trajectory is obtained by repeatedly taking the run-sum transformation (A353847) until the rank of an anti-run is reached. For example, the trajectory 11 -> 10 -> 8 corresponds to the trajectory (2,1,1) -> (2,2) -> (4), with length a(11) = 3.

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 trajectory of 94685 and the a(94685) = 5 corresponding compositions:
  94685: (2,1,1,4,1,1,2,1,1,2,1)
  86357: (2,2,4,2,2,2,2,1)
  69889: (4,4,8,1)
  65793: (8,8,1)
  65537: (16,1)

Positions of first appearances are A072639.
Positions of 1's are A333489, counted by A003242 (complement A261983).
The version for partitions is A353841.
The last part of the same trajectory is A353855.
This is the rank statistic counted by A353859.
A005811 counts runs in binary expansion.
A011782 counts compositions.
A066099 lists compositions in standard order.
A318928 gives runs-resistance of binary expansion.
A333627 represents the run-lengths of standard compositions.
A353832 represents the run-sum transformation of a partition.
A353840-A353846 pertain to the partition run-sum trajectory.
A353847 represents the run-sum transformation of a composition.
A353853-A353859 pertain to the composition run-sum trajectory.
A353932 lists run-sums of standard compositions, represented by A353847.
Cf. A237685, A238279, A304442, A325277, A333755, A353848, A353849, A353850, A353852, A353860.

stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[Length[FixedPointList[Total/@Split[#]&,stc[n]]]-1,{n,0,100}]

A353858 Number of integer compositions of n with run-sum trajectory ending in a singleton.

Original entry on oeis.org

0, 1, 2, 2, 5, 2, 8, 2, 20, 5, 8, 2, 78, 2, 8, 8, 223, 2, 179, 2, 142, 8, 8, 2, 4808

Offset: 0

Gus Wiseman, Jun 17 2022

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). The run-sum trajectory is obtained by repeatedly taking the run-sums (cf. A353847) until an anti-run composition (A003242) is reached. For example, the composition (2,2,1,1,2) is counted under a(8) because it has the following run-sum trajectory: (2,2,1,1,2) -> (4,2,2) -> (4,4) -> (8).

			The a(0) = 0 through a(8) = 20 compositions:
  .  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
          (11)  (111)  (22)    (11111)  (33)      (1111111)  (44)
                       (112)            (222)                (224)
                       (211)            (1113)               (422)
                       (1111)           (2112)               (1124)
                                        (3111)               (2114)
                                        (11211)              (2222)
                                        (111111)             (4112)
                                                             (4211)
                                                             (11114)
                                                             (21122)
                                                             (22112)
                                                             (41111)
                                                             (111122)
                                                             (112112)
                                                             (211211)
                                                             (221111)
                                                             (1111211)
                                                             (1121111)
                                                             (11111111)

The version for partitions is A353845, ranked by A353844.
The trajectory itself is A353853, last part A353855.
The lengths of trajectories of standard compositions are A353854.
This is column k = 1 of A353856, for partitions A353843.
These compositions are ranked by A353857.
A011782 counts compositions.
A066099 lists compositions in standard order.
A238279 and A333755 count compositions by number of runs.
A275870 counts collapsible partitions, ranked by A300273.
A333489 ranks anti-runs, counted by A003242 (complement A261983).
A353840-A353846 pertain to partition run-sum trajectory.
A353847 represents the run-sums of a composition, partitions A353832.
A353851 counts compositions with equal run-sums, ranked by A353848.
A353859 counts compositions by length of run-sum trajectory.
A353860 counts collapsible compositions.
A353932 lists run-sums of standard compositions.
Cf. A072639, A237685, A304442, A304465, A318928, A353833, A353841, A353849, A353850, A353852.

Table[Length[Select[Join@@Permutations/@ IntegerPartitions[n], Length[FixedPoint[Total/@Split[#]&,#]]==1&]],{n,0,15}]

A129838 Number of up/down (or down/up) compositions of n into distinct parts.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 5, 6, 8, 11, 18, 21, 30, 38, 52, 78, 97, 128, 170, 222, 285, 421, 510, 683, 872, 1148, 1440, 1893, 2576, 3209, 4151, 5313, 6784, 8615, 10969, 13755, 18573, 22713, 29173, 36536, 46705, 57899, 73696, 91076, 114777, 148531, 182813, 228938, 287042

Offset: 0

Vladeta Jovovic, May 21 2007

Original name was: Number of alternating compositions of n into distinct parts.

A composition is up/down if it is alternately strictly increasing and strictly decreasing, starting with an increase. - Gus Wiseman, Jan 15 2022

			From _Gus Wiseman_, Jan 15 2022: (Start)
The a(1) = 1 through a(8) = 8 up/down strict compositions (non-strict A025048):
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)
            (1,2)  (1,3)  (1,4)  (1,5)    (1,6)    (1,7)
                          (2,3)  (2,4)    (2,5)    (2,6)
                                 (1,3,2)  (3,4)    (3,5)
                                 (2,3,1)  (1,4,2)  (1,4,3)
                                          (2,4,1)  (1,5,2)
                                                   (2,5,1)
                                                   (3,4,1)
The a(1) = 1 through a(8) = 8 down/up strict compositions (non-strict A025049):
  (1)  (2)  (3)    (4)    (5)    (6)      (7)      (8)
            (2,1)  (3,1)  (3,2)  (4,2)    (4,3)    (5,3)
                          (4,1)  (5,1)    (5,2)    (6,2)
                                 (2,1,3)  (6,1)    (7,1)
                                 (3,1,2)  (2,1,4)  (2,1,5)
                                          (4,1,2)  (3,1,4)
                                                   (4,1,3)
                                                   (5,1,2)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..10000

The case of permutations is A000111.
This is the up/down case of A032020.
This is the strict case of A129852/A129853, strong A025048/A025049.
The undirected version is A349054.
A001250 = alternating permutations, complement A348615.
A003242 = Carlitz compositions, complement A261983.
A011782 = compositions, unordered A000041.
A025047 = alternating compositions, complement A345192.
A349052 = weakly alternating compositions, complement A349053.
Cf. A003056, A008289, A008965, A015723, A072706, A128761, A218074, A345165, A345170, A345195, A349800.

g:= proc(u, o) option remember;
      `if`(u+o=0, 1, add(g(o-1+j, u-j), j=1..u))
    end:
b:= proc(n, k) option remember; `if`(k<0 or n<0, 0,
      `if`(k=0, `if`(n=0, 1, 0), b(n-k, k)+b(n-k, k-1)))
    end:
a:= n-> add(b(n, k)*g(k, 0), k=0..floor((sqrt(8*n+1)-1)/2)):
seq(a(n), n=0..60);  # Alois P. Heinz, Dec 22 2021

whkQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]y[[m+1]]],{m,1,Length[y]-1}];
Table[Length[Select[Join@@Permutations/@ Select[IntegerPartitions[n],UnsameQ@@#&],whkQ]],{n,0,15}] (* Gus Wiseman, Jan 15 2022 *)

G.f.: Sum_{k>=0} A000111(k)*x^(k*(k+1)/2)/Product_{i=1..k} (1-x^i). - Vladeta Jovovic, May 24 2007
a(n) = Sum_{k=0..A003056(n)} A000111(k) * A008289(n,k). - Alois P. Heinz, Dec 22 2021
a(n) = (A349054(n) + 1)/2. - Gus Wiseman, Jan 15 2022

a(0)=1 prepended by Alois P. Heinz, Dec 22 2021

Name changed from "alternating" to "up/down" by Gus Wiseman, Jan 15 2022

cp's OEIS Frontend

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

A244164 Number of compositions of n in which the minimal multiplicity of parts equals 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A329863 Number of compositions of n with cuts-resistance 2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A348382 Number of compositions of n that are not a twin (x,x) but have adjacent equal parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A353427 Numbers k such that the k-th composition in standard order has all run-lengths > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica