A348377 -id:A348377 - cp's OEIS frontend

A349800 Number of integer compositions of n that are weakly alternating and have at least two adjacent equal parts.

0, 0, 1, 1, 4, 9, 16, 33, 62, 113, 205, 373, 664, 1190, 2113, 3744, 6618, 11683, 20564, 36164, 63489, 111343, 195042, 341357, 596892, 1042976, 1821179, 3178145, 5543173, 9663545, 16839321, 29332231, 51075576, 88908912, 154722756, 269186074, 468221264

Offset: 0

Gus Wiseman, Dec 16 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 compositions that are weakly but not strongly alternating; also weakly alternating non-anti-run compositions.

			The a(2) = 1 through a(6) = 16 compositions:
  (1,1)  (1,1,1)  (2,2)      (1,1,3)      (3,3)
                  (1,1,2)    (1,2,2)      (1,1,4)
                  (2,1,1)    (2,2,1)      (2,2,2)
                  (1,1,1,1)  (3,1,1)      (4,1,1)
                             (1,1,1,2)    (1,1,1,3)
                             (1,1,2,1)    (1,1,2,2)
                             (1,2,1,1)    (1,1,3,1)
                             (2,1,1,1)    (1,3,1,1)
                             (1,1,1,1,1)  (2,2,1,1)
                                          (3,1,1,1)
                                          (1,1,1,1,2)
                                          (1,1,1,2,1)
                                          (1,1,2,1,1)
                                          (1,2,1,1,1)
                                          (2,1,1,1,1)
                                          (1,1,1,1,1,1)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Wikipedia, Alternating permutation

This is the weakly alternating case of A345192, ranked by A345168.
The case of partitions is A349795, ranked by A350137.
The version counting permutations of prime indices is A349798.
These compositions are ranked by A349799.
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.
A345165 = partitions without an alternating permutation, ranked by A345171.
A345170 = partitions with an alternating permutation, ranked by A345172.
A345173 = non-alternating anti-run partitions, ranked by A345166.
A345195 = non-alternating anti-run compositions, ranked by A345169.
A348377 = non-alternating non-twin compositions.
A349801 = non-alternating partitions, ranked by A289553.
Weakly alternating:
- A349052 = compositions, directed A129852/A129853, complement A349053.
- A349056 = permutations of prime indices, complement A349797.
- A349057 = complement of standard composition numbers (too dense).
- A349058 = patterns, complement A350138.
- A349059 = ordered factorizations, complement A350139.
- A349060 = partitions, complement A349061.
Cf. A008965, A011782, A027383, A096441, A274230, A333213, A344614, A344615, A348382, A348613, A349796, A350140.

wigQ[y_]:=Or[Length[y]==0,Length[Split[y]]==Length[y] &&Length[Split[Sign[Differences[y]]]]==Length[y]-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/@IntegerPartitions[n],(whkQ[#]||whkQ[-#])&&!wigQ[#]&]],{n,0,10}]

a(n) = A349052(n) - A025047(n). - Andrew Howroyd, Jan 31 2024

a(21) onwards from Andrew Howroyd, Jan 31 2024

A348609 Numbers with a separable factorization without an alternating permutation.

Original entry on oeis.org

216, 270, 324, 378, 432, 486, 540, 594, 640, 648, 702, 756, 768, 810, 864, 896, 918, 960, 972, 1024, 1026, 1080, 1134, 1152, 1188, 1242, 1280, 1296, 1344, 1350, 1404, 1408, 1458, 1500, 1512, 1536, 1566, 1620, 1664, 1674, 1728, 1750, 1782, 1792, 1836, 1890

Offset: 1

Gus Wiseman, Oct 30 2021

nonn

A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
A multiset is separable if it has a permutation that is an anti-run, meaning there are no adjacent equal parts. Alternatively, a multiset is separable if its greatest multiplicity is greater than the sum of the remaining multiplicities plus one.
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.
Note that 216 has separable prime factorization (2*2*2*3*3*3) with an alternating permutation, but the separable factorization (2*3*3*3*4) is has no alternating permutation. See also A345173.

			The terms and their prime factorizations begin:
  216 = 2*2*2*3*3*3
  270 = 2*3*3*3*5
  324 = 2*2*3*3*3*3
  378 = 2*3*3*3*7
  432 = 2*2*2*2*3*3*3
  486 = 2*3*3*3*3*3
  540 = 2*2*3*3*3*5
  594 = 2*3*3*3*11
  640 = 2*2*2*2*2*2*2*5
  648 = 2*2*2*3*3*3*3
  702 = 2*3*3*3*13
  756 = 2*2*3*3*3*7
  768 = 2*2*2*2*2*2*2*2*3
  810 = 2*3*3*3*3*5
  864 = 2*2*2*2*2*3*3*3

Partitions of this type are counted by A345166, ranked by A345173 (a superset).
Compositions of this type are counted by A345195, ranked by A345169.
A001055 counts factorizations, strict A045778, ordered A074206.
A001250 counts alternating permutations, complement A348615.
A025047 counts alternating compositions, complement A345192, ranked by A345167.
A335434 counts separable factorizations, with twins A348383, complement A333487.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A345165 counts partitions w/o an alternating permutation, complement A345170.
A347438 counts factorizations with alternating product 1, additive A119620.
A348379 counts factorizations w/ an alternating permutation, complement A348380.
A348610 counts alternating ordered factorizations, complement A348613.
Cf. A001248, A003242, A038548, A325534, A336103, A344614, A345162, A347050, A347437, A347706, A348377, A348381, A348382.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
sepQ[m_]:=Select[Permutations[m],!MatchQ[#,{_,x_,x_,_}]&]!={};
wigQ[y_]:=Or[Length[y]==0,Length[Split[y]]==Length[y]&&Length[Split[Sign[Differences[y]]]]==Length[y]-1];
Select[Range[1000],Function[n,Select[facs[n],sepQ[#]&&Select[Permutations[#],wigQ]=={}&]!={}]]

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

Original entry on oeis.org

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

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

cp's OEIS Frontend

A349800 Number of integer compositions of n that are weakly alternating and have at least two adjacent equal parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A348609 Numbers with a separable factorization without an alternating permutation.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

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