A349052 -id:A349052 - cp's OEIS frontend

A350139 Number of non-weakly alternating ordered factorizations of n.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 4, 0, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 10, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 12, 0, 0, 0, 4, 0, 2, 0, 0, 0, 2, 0, 20, 0, 0, 0, 0, 0, 2, 0, 10, 0, 0, 0, 12, 0

Offset: 1

Gus Wiseman, Dec 24 2021

nonn

The first odd term is a(180) = 69, which has, for example, the non-weakly alternating ordered factorization 2*3*5*3*2.
An ordered factorization of n is a finite sequence of positive integers > 1 with product n. Ordered factorizations are counted by A074206.
We define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either.

			The a(n) ordered factorizations for n = 24, 36, 48, 60:
  (2*3*4)  (2*3*6)    (2*3*8)    (2*5*6)
  (4*3*2)  (6*3*2)    (2*4*6)    (3*4*5)
           (2*3*3*2)  (6*4*2)    (5*4*3)
           (3*2*2*3)  (8*3*2)    (6*5*2)
                      (2*2*3*4)  (10*3*2)
                      (2*3*4*2)  (2*3*10)
                      (2*4*3*2)  (2*2*3*5)
                      (3*2*2*4)  (2*3*5*2)
                      (4*2*2*3)  (2*5*3*2)
                      (4*3*2*2)  (3*2*2*5)
                                 (5*2*2*3)
                                 (5*3*2*2)

Positions of nonzero terms are A122181.
The strong version for compositions is A345192, ranked by A345168.
The strong case is A348613, complement A348610.
The version for compositions is A349053, complement A349052.
As compositions with ones allowed these are ranked by A349057.
The complement is counted by A349059.
A001055 counts factorizations, strict A045778, ordered A074206.
A001250 counts alternating permutations, complement A348615.
A025047 counts weakly alternating compositions, ranked by A345167.
A335434 counts separable factorizations, complement A333487.
A345164 counts alternating perms of prime factors, with twins A344606.
A345170 counts partitions with an alternating permutation.
A348379 counts factorizations w/ alternating perm, complement A348380.
A348611 counts anti-run ordered factorizations, complement A348616.
A349060 counts weakly alternating partitions, complement A349061.
Cf. A003242, A138364, A339846, A339890, A344604, A345194, A347050, A347438, A347463, A347706, A349054.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
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/@facs[n],!whkQ[#]&&!whkQ[-#]&]],{n,100}]

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

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

A350355 Numbers k such that the k-th composition in standard order is up/down.

Original entry on oeis.org

0, 1, 2, 4, 6, 8, 12, 13, 16, 20, 24, 25, 32, 40, 41, 48, 49, 50, 54, 64, 72, 80, 81, 82, 96, 97, 98, 102, 108, 109, 128, 144, 145, 160, 161, 162, 166, 192, 193, 194, 196, 198, 204, 205, 216, 217, 256, 272, 288, 289, 290, 320, 321, 322, 324, 326, 332, 333, 384

Offset: 1

Gus Wiseman, Jan 15 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.

A composition is up/down if it is alternately strictly increasing and strictly decreasing, starting with an increase. For example, the partition (3,2,2,2,1) has no up/down permutations, even though it does have the anti-run permutation (2,3,2,1,2).

			The terms together with the corresponding compositions begin:
   0: ()
   1: (1)
   2: (2)
   4: (3)
   6: (1,2)
   8: (4)
  12: (1,3)
  13: (1,2,1)
  16: (5)
  20: (2,3)
  24: (1,4)
  25: (1,3,1)
  32: (6)
  40: (2,4)
  41: (2,3,1)
  48: (1,5)
  49: (1,4,1)
  50: (1,3,2)
  54: (1,2,1,2)

The case of permutations is counted by A000111.
These compositions are counted by A025048, down/up A025049.
The strict case is counted by A129838, undirected A349054.
The weak version is counted by A129852, down/up A129853.
The version for anti-runs is A333489, a superset, complement A348612.
This is the up/down case of A345167, counted by A025047.
Counting patterns of this type gives A350354.
The down/up version is A350356.
A001250 counts alternating permutations, complement A348615.
A003242 counts anti-run compositions.
A011782 counts compositions, unordered A000041.
A345192 counts non-alternating compositions, ranked by A345168.
A349052 counts weakly alternating compositions, complement A349053.
A349057 ranks non-weakly alternating compositions.
Statistics of standard compositions:
- Length is A000120.
- Sum is A070939.
- Heinz number is A333219.
- Number of maximal anti-runs is A333381.
- Number of distinct parts is A334028.
Classes of standard compositions:
- Partitions are A114994, strict A333256.
- Multisets are A225620, strict A333255.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Patterns are A333217.
Cf. A008965, A049774, A095684, A106356, A238279, A344604, A344614, A344615, A345169, A345170, A345172, A349051, A349799.

updoQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]>y[[m+1]],y[[m]]

A345167 = A350355 \/ A350356.

A350356 Numbers k such that the k-th composition in standard order is down/up.

Original entry on oeis.org

0, 1, 2, 4, 5, 8, 9, 16, 17, 18, 22, 32, 33, 34, 38, 44, 45, 64, 65, 66, 68, 70, 76, 77, 88, 89, 128, 129, 130, 132, 134, 140, 141, 148, 152, 153, 176, 177, 178, 182, 256, 257, 258, 260, 262, 264, 268, 269, 276, 280, 281, 296, 297, 304, 305, 306, 310, 352, 353

Offset: 1

Gus Wiseman, Jan 15 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.

A composition is down/up if it is alternately strictly increasing and strictly decreasing, starting with a decrease. For example, the partition (3,2,2,2,1) has no down/up permutations, even though it does have the anti-run permutation (2,1,2,3,2).

			The terms together with the corresponding compositions begin:
   0: ()
   1: (1)
   2: (2)
   4: (3)
   5: (2,1)
   8: (4)
   9: (3,1)
  16: (5)
  17: (4,1)
  18: (3,2)
  22: (2,1,2)
  32: (6)
  33: (5,1)
  34: (4,2)
  38: (3,1,2)
  44: (2,1,3)
  45: (2,1,2,1)

Gus Wiseman, Statistics, classes, and transformations of standard compositions
Wikipedia, Alternating permutation

The case of permutations is counted by A000111.
These compositions are counted by A025049, up/down A025048.
The strict case is counted by A129838, undirected A349054.
The weak version is counted by A129853, up/down A129852.
The version for anti-runs is A333489, a superset, complement A348612.
This is the down/up case of A345167, counted by A025047.
Counting patterns of this type gives A350354.
The up/down version is A350355.
A001250 counts alternating permutations, complement A348615.
A003242 counts anti-run compositions.
A011782 counts compositions, unordered A000041.
A345192 counts non-alternating compositions, ranked by A345168.
A349052 counts weakly alternating compositions, complement A349053.
A349057 ranks non-weakly alternating compositions.
Statistics of standard compositions:
- Length is A000120.
- Sum is A070939.
- Heinz number is A333219.
- Number of maximal anti-runs is A333381.
- Number of distinct parts is A334028.
Classes of standard compositions:
- Partitions are A114994, strict A333256.
- Multisets are A225620, strict A333255.
- Strict compositions are A233564.
- Constant compositions are A272919.
- Patterns are A333217.
Cf. A008965, A049774, A095684, A106356, A238279, A344604, A344614, A344615, A345169, A345170, A345172, A349051, A349799.

doupQ[y_]:=And@@Table[If[EvenQ[m],y[[m]]y[[m+1]]],{m,1,Length[y]-1}];
stc[n_]:=Differences[Prepend[Join@@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],doupQ[stc[#]]&]

A345167 = A350355 \/ A350356.

A350137 Nonsquarefree numbers whose prime signature, except possibly the first and last parts, is all even.

Original entry on oeis.org

4, 8, 9, 12, 16, 18, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 50, 52, 54, 56, 63, 64, 68, 72, 75, 76, 80, 81, 88, 90, 92, 96, 98, 99, 100, 104, 108, 112, 116, 117, 121, 124, 125, 126, 128, 135, 136, 144, 147, 148, 152, 153, 160, 162, 164, 169, 171, 172

Offset: 1

Gus Wiseman, Dec 23 2021

nonn

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.
Also nonsquarefree numbers whose prime factors, taken in order and with multiplicity, are alternately constant and weakly increasing, starting with either.
Also the Heinz numbers of non-strict integer partitions whose part multiplicities, except possibly the first and last, are all even. These are counted by A349795.

			The terms together with their prime indices begin:
    4: {1,1}
    8: {1,1,1}
    9: {2,2}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   24: {1,1,1,2}
   25: {3,3}
   27: {2,2,2}
   28: {1,1,4}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}

This is the nonsquarefree case of the complement of A349794.
These are the Heinz numbers of the partitions counted by A349795.
A version for compositions is A349799, counted by A349800.
A complementary version is A350140, counted by A349796.
A001250 = alternating permutations, ranked by A349051, complement A348615.
A005117 = squarefree numbers, complement A013929.
A025047/A025048/A025049 = alternating compositions, ranked by A345167.
A056239 adds up prime indices, row sums of A112798, row lengths A001222.
A124010 = prime signature, sorted A118914.
A345164 = alternating permutations of prime indices, complement A350251.
A349052/A129852/A129853 = weakly alternating compositions.
A349053 = non-weakly alternating compositions, ranked by A349057.
A349056 = weakly alternating permutations of prime indices.
A349058 = weakly alternating patterns, complement A350138.
A349060 = weakly alternating partitions, complement A349061.
Cf. A000111, A096441, A117298, A335433, A335448, A335452, A344614, A344652, A344653, A345173, A349059, A349797.

Select[Range[100],!SquareFreeQ[#]&&(PrimePowerQ[#]||And@@EvenQ/@Take[Last/@FactorInteger[#],{2,-2}])&]

A350140 Nonsquarefree numbers whose prime signature has at least one odd part other the first or last.

Original entry on oeis.org

60, 84, 120, 132, 140, 150, 156, 168, 204, 220, 228, 240, 260, 264, 270, 276, 280, 294, 300, 308, 312, 315, 336, 340, 348, 364, 372, 378, 380, 408, 420, 440, 444, 456, 460, 476, 480, 490, 492, 495, 516, 520, 528, 532, 540, 552, 560, 564, 572, 580, 585, 588

Offset: 1

Gus Wiseman, Dec 25 2021

nonn

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

Also Heinz numbers of non-weakly alternating non-strict integer partitions, where we define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either. These partitions are counted by A349796. This sequence involves the somewhat degenerate case where no strict increases are allowed.

			The terms together with their Heinz partitions begin (A-E = 10-14):
     60: (3211)      276: (9211)      420: (43211)
     84: (4211)      280: (43111)     440: (53111)
    120: (32111)     294: (4421)      444: (C211)
    132: (5211)      300: (33211)     456: (82111)
    140: (4311)      308: (5411)      460: (9311)
    150: (3321)      312: (62111)     476: (7411)
    156: (6211)      315: (4322)      480: (3211111)
    168: (42111)     336: (421111)    490: (4431)
    204: (7211)      340: (7311)      492: (D211)
    220: (5311)      348: (A211)      495: (5322)
    228: (8211)      364: (6411)      516: (E211)
    240: (321111)    372: (B211)      520: (63111)
    260: (6311)      378: (42221)     528: (521111)
    264: (52111)     380: (8311)      532: (8411)
    270: (32221)     408: (72111)     540: (322211)

Including all nonsquarefree numbers gives A013929, complement A005117.
Subsets include A088860 and A110286.
Signatures of this type are counted by A274230, complement A027383.
The strict instead of non-strict version is A336568, counted by A347548.
A version for compositions allowing strict is A349057, counted by A349053.
Allowing strict partitions gives A349794, counted by A349061.
These partitions are counted by A349796.
The complement in nonsquarefree partitions is A350137, counted by A349795.
A000041 = integer partitions, strict A000009.
A001250 = alternating permutations, ranked by A349051, complement A348615.
A003242 = Carlitz (anti-run) compositions.
A025047/A025048/A025049 = alternating compositions, ranked by A345167.
A056239 adds up prime indices, row sums of A112798, row lengths A001222.
A096441 = weakly alternating 0-appended partitions.
A124010 = prime signature, sorted A118914.
A345164 = alternating permutations of prime indices, complement A350251.
A345170 = partitions w/ an alternating permutation, ranked by A345172.
A349052/A129852/A129853 = weakly alternating compositions.
A349056 = weakly alternating permutations of prime indices.
A349058 = weakly alternating patterns, complement A350138.
A349060 = weakly alternating partitions, strong A349801.
A349798 = weakly but not strongly alternating perms of prime indices.
Cf. A000111, A047967, A333213, A335448, A344615, A344653, A345173, A349054, A349059, A349797, A349799.

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

Complement of A005117 in A349794.

A350353 Numbers whose multiset of prime factors has a permutation that is not weakly alternating.

Original entry on oeis.org

30, 36, 42, 60, 66, 70, 72, 78, 84, 90, 100, 102, 105, 108, 110, 114, 120, 126, 130, 132, 138, 140, 144, 150, 154, 156, 165, 168, 170, 174, 180, 182, 186, 190, 195, 196, 198, 200, 204, 210, 216, 220, 222, 225, 228, 230, 231, 234, 238, 240, 246, 252, 255, 258

Offset: 1

Gus Wiseman, Jan 13 2022

nonn

We define a sequence to be weakly alternating if it is alternately weakly increasing and weakly decreasing, starting with either.

			The terms together with a (generally not unique) non-weakly alternating permutation of each multiset of prime indices begin:
   30 : (1,2,3)       100 : (1,3,3,1)
   36 : (1,2,2,1)     102 : (1,2,7)
   42 : (1,2,4)       105 : (2,3,4)
   60 : (1,1,2,3)     108 : (1,2,2,1,2)
   66 : (1,2,5)       110 : (1,3,5)
   70 : (1,3,4)       114 : (1,2,8)
   72 : (1,1,2,2,1)   120 : (1,1,1,2,3)
   78 : (1,2,6)       126 : (1,2,4,2)
   84 : (1,1,2,4)     130 : (1,3,6)
   90 : (1,2,3,2)     132 : (1,1,2,5)

The strong version is A289553, complement A167171.
These are the positions of nonzero terms in A349797.
Below, WA = "weakly alternating":
- WA compositions are counted by A349052/A129852/A129853.
- Non-WA compositions are counted by A349053, ranked by A349057.
- WA permutations of prime factors = A349056, complement A349797.
- WA patterns are counted by A349058, complement A350138.
- WA ordered factorizations are counted by A349059, complement A350139.
- WA partitions are counted by A349060, complement A349061.
A001250 counts alternating permutations, complement A348615.
A008480 counts permutations of prime factors.
A025047 = alternating compositions, ranked by A345167, complement A345192.
A056239 adds up prime indices, row sums of A112798 (row lengths A001222).
A071321 gives the alternating sum of prime factors, reverse A071322.
A335452 counts anti-run permutations of prime factors, complement A336107.
A345164 = alternating permutations of prime factors, complement A350251.
Cf. A003242, A335433, A335448, A344652, A344653, A345171, A345172, A345173, A348379, A348613, A349798, A350252, A349800.

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}];
Select[Range[100],Select[Permutations[primeMS[#]],!whkQ[#]&&!whkQ[-#]&]!={}&]

cp's OEIS Frontend

A350139 Number of non-weakly alternating ordered factorizations of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A350355 Numbers k such that the k-th composition in standard order is up/down.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A350356 Numbers k such that the k-th composition in standard order is down/up.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A350137 Nonsquarefree numbers whose prime signature, except possibly the first and last parts, is all even.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A350140 Nonsquarefree numbers whose prime signature has at least one odd part other the first or last.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A350353 Numbers whose multiset of prime factors has a permutation that is not weakly alternating.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica