A348379 -id:A348379 - cp's OEIS frontend

A348381 Number of inseparable factorizations of n that are not a twin (x*x).

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 30 2021

nonn

First differs from A347706 at a(216) = 3, A347706(216) = 4.
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
A multiset is inseparable if it has no permutation that is an anti-run, meaning there are always adjacent equal parts. Alternatively, a multiset is inseparable if its maximal multiplicity is at most one plus the sum of its remaining multiplicities.

			The a(n) factorizations for n = 96, 192, 384, 576:
  2*2*2*12      3*4*4*4         4*4*4*6           4*4*4*9
  2*2*2*2*6     2*2*2*24        2*2*2*48          2*2*2*72
  2*2*2*2*2*3   2*2*2*2*12      2*2*2*2*24        2*2*2*2*36
                2*2*2*2*2*6     2*2*2*2*3*8       2*2*2*2*4*9
                2*2*2*2*3*4     2*2*2*2*4*6       2*2*2*2*6*6
                2*2*2*2*2*2*3   2*2*2*2*2*12      2*2*2*2*2*18
                                2*2*2*2*2*2*6     2*2*2*2*3*12
                                2*2*2*2*2*3*4     2*2*2*2*2*2*9
                                2*2*2*2*2*2*2*3   2*2*2*2*2*3*6
                                                  2*2*2*2*2*2*3*3

Positions of nonzero terms are A046099.
Partitions not of this type are counted by A325534 - A000035.
Partitions of this type are counted by A325535 - A000035.
Allowing twins gives A333487.
The case without an alternating permutation is A347706, with twins A348380.
The complement is counted by A348383, without twins A335434.
A001055 counts factorizations, strict A045778, ordered A074206.
A001250 counts alternating permutations of sets.
A008480 counts permutations of prime indices, strict A335489.
A025047 counts alternating or wiggly compositions.
A335452 counts anti-run permutations of prime indices, complement A336107.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A344654 counts non-twin partitions without an alternating permutation.
A348382 counts non-anti-run compositions that are not a twin.
A348611 counts anti-run ordered factorizations.
Cf. A038548, A336102, A344614, A344653, A344740, A347050, A347437, A347438, A347456, A348379, A348609.

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],!MatchQ[#,{x_,x_}]&&Select[Permutations[#],!MatchQ[#,{_,x_,x_,_}]&]=={}&]],{n,100}]

a(n > 1) = A333487(n) - A010052(n).

a(2^n) = A325535(n) - 1 for odd n, otherwise A325535(n).

A348383 Number of factorizations of n that are either separable (have an anti-run permutation) or are a twin (x*x).

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 2, 4, 1, 4, 1, 4, 2, 2, 1, 6, 2, 2, 2, 4, 1, 5, 1, 5, 2, 2, 2, 9, 1, 2, 2, 6, 1, 5, 1, 4, 4, 2, 1, 10, 2, 4, 2, 4, 1, 6, 2, 6, 2, 2, 1, 11, 1, 2, 4, 7, 2, 5, 1, 4, 2, 5, 1, 15, 1, 2, 4, 4, 2, 5, 1, 10, 4, 2, 1, 11, 2

Offset: 1

Gus Wiseman, Oct 30 2021

nonn

First differs from A347050 at a(216) = 28, A347050(216) = 27.
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.

			The a(216) = 28 factorizations:
  (2*2*2*3*3*3)  (2*2*2*3*9)  (2*2*6*9)   (3*8*9)   (3*72)   (216)
                 (2*2*3*3*6)  (2*3*4*9)   (4*6*9)   (4*54)
                 (2*3*3*3*4)  (2*3*6*6)   (2*2*54)  (6*36)
                              (3*3*4*6)   (2*3*36)  (8*27)
                              (2*2*3*18)  (2*4*27)  (9*24)
                              (2*3*3*12)  (2*6*18)  (12*18)
                                          (2*9*12)  (2*108)
                                          (3*3*24)
                                          (3*4*18)
                                          (3*6*12)
The a(270) = 20 factorizations:
  (2*3*3*3*5)  (2*3*5*9)   (5*6*9)   (3*90)   (270)
               (3*3*5*6)   (2*3*45)  (5*54)
               (2*3*3*15)  (2*5*27)  (6*45)
                           (2*9*15)  (9*30)
                           (3*3*30)  (10*27)
                           (3*5*18)  (15*18)
                           (3*6*15)  (2*135)
                           (3*9*10)

Positions of 1's are 1 and A000040.
Not requiring separability gives A010052 for n > 1.
Positions of 2's are A323644.
Partitions of this type are counted by A325534(n) + A000035(n + 1).
Partitions of this type are ranked by A335433 \/ A001248.
Partitions not of this type are counted by A325535(n) - A000035(n + 1).
Partitions not of this type are ranked by A345193 = A335448 \ A001248.
Not allowing twins gives A335434, complement A333487,
The case with an alternating permutation is A347050, no twins A348379.
The case without an alternating permutation is A347706, no twins A348380.
The complement is counted by A348381.
A001055 counts factorizations, strict A045778, ordered A074206.
A001250 counts alternating permutations.
A003242 counts anti-run compositions, ranked by A333489.
A025047 counts alternating or wiggly compositions.
A335452 counts anti-run permutations of prime indices, complement A336107.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
Cf. A119620, A138364, A336103, A344654, A344740, A347437, A347438, A347456, A347458, 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_,_}]&]!={};
Table[Length[Select[facs[n],MatchQ[#,{x_,x_}]||sepQ[#]&]],{n,100}]

a(n > 1) = A335434(n) + A010052(n), where A010052(n) = 1 if n is a perfect square, otherwise 0.

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

A350251 Number of non-alternating permutations of the multiset of prime factors of n.

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, 2, 0, 1, 0, 0, 0, 4, 0, 0, 0, 4, 0, 2, 0, 2, 2, 0, 0, 5, 1, 2, 0, 2, 0, 4, 0, 4, 0, 0, 0, 8, 0, 0, 2, 1, 0, 2, 0, 2, 0, 2, 0, 9, 0, 0, 2, 2, 0, 2, 0, 5, 1, 0, 0, 8, 0, 0, 0

Offset: 1

Gus Wiseman, Jan 08 2022

nonn

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 a(n) permutations for selected n:
n = 4    12    24     48      60     72      90     96       120
   ----------------------------------------------------------------
    22   223   2223   22223   2235   22233   2335   222223   22235
         322   2232   22232   2253   22323   2353   222232   22253
               2322   22322   2352   22332   2533   222322   22325
               3222   23222   2532   23223   3235   223222   22352
                      32222   3225   23322   3325   232222   22523
                              3522   32223   3352   322222   22532
                              5223   32232   3532            23225
                              5322   32322   5233            23522
                                     33222   5323            25223
                                             5332            25322
                                                             32225
                                                             32252
                                                             32522
                                                             35222
                                                             52223
                                                             52232
                                                             52322
                                                             53222

The non-anti-run case is A336107, complement A335452.
The complement is counted by A345164, with twins A344606.
Positions of nonzero terms are A345171, counted by A345165.
Positions of zeros are A345172, counted by A345170.
Compositions of this type are counted by A345192, ranked by A345168.
Ordered factorizations of this type counted by A348613, complement A348610.
Compositions weakly of this type are counted by A349053, ranked by A349057.
The weak version is A349797, complement A349056.
The case that is also weakly alternating is A349798, compositions A349800.
Patterns of this type are counted by A350252, complement A345194.
A001250 counts alternating permutations, complement A348615.
A003242 counts Carlitz (anti-run) compositions.
A008480 counts permutations of prime factors (ordered prime factorizations).
A025047/A025048/A025049 count alternating compositions, ranked by A345167.
A056239 adds up prime indices, row sums of A112798 (row lengths A001222).
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A344616 gives the alternating sum of prime indices, reverse A316524.
A349052/A129852/A129853 count weakly alternating compositions.
Cf. A071321, A289553, A316523, A344652, A344653, A344742, A345173, A348379, A349061, A349801, A350138, A350139.

wigQ[y_]:=Or[Length[y]==0,Length[Split[y]] ==Length[y]&&Length[Split[Sign[Differences[y]]]]==Length[y]-1];
Table[Length[Select[Permutations[Flatten[ ConstantArray@@@FactorInteger[n]]],!wigQ[#]&]],{n,100}]

a(n) = A008480(n) - A345164(n).

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

Original entry on oeis.org

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

A348616 Number of ordered factorizations of n with adjacent equal factors.

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, 6, 1, 0, 1, 2, 0, 0, 0, 9, 0, 0, 0, 9, 0, 0, 0, 6, 0, 0, 0, 2, 2, 0, 0, 19, 1, 2, 0, 2, 0, 6, 0, 6, 0, 0, 0, 8, 0, 0, 2, 18, 0, 0, 0, 2, 0, 0, 0, 31, 0, 0, 2, 2, 0, 0, 0, 19, 4, 0, 0, 8, 0, 0

Offset: 1

Gus Wiseman, Nov 08 2021

nonn

First differs from A348613 at a(24) = 6, A348613(24) = 8.

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

			The a(n) ordered factorizations with at least one pair of adjacent equal factors for n = 12, 24, 36, 60:
   2*2*3    2*2*6      6*6        15*2*2
   3*2*2    6*2*2      2*2*9      2*2*15
            2*2*2*3    3*3*4      2*2*3*5
            2*2*3*2    4*3*3      2*2*5*3
            2*3*2*2    9*2*2      3*2*2*5
            3*2*2*2    2*2*3*3    3*5*2*2
                       2*3*3*2    5*2*2*3
                       3*2*2*3    5*3*2*2
                       3*3*2*2
See also examples in A348611.

Positions of 0's are A005117.
Positions of 4's appear to be A030514.
Positions of 2's appear to be A054753.
Positions of 1's appear to be A168363.
The additive version (compositions) is A261983, complement A003242.
Factorizations with a permutation of this type are counted by A333487.
Factorizations without a permutation of this type are counted by A335434.
The complement is counted by A348611.
As compositions these are ranked by A348612, complement A333489.
Dominated by A348613 (non-alternating ordered factorizations).
A001055 counts factorizations, strict A045778, ordered A074206.
A335452 counts anti-run permutations of prime indices, complement A336107.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
Cf. A001250, A025047, A122181, A138364, A347050, A347463, A347706, A348379, A348380, A348382, A348610.

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}]

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

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

A348381 Number of inseparable factorizations of n that are not a twin (x*x).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A348383 Number of factorizations of n that are either separable (have an anti-run permutation) or are a twin (x*x).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A350251 Number of non-alternating permutations of the multiset of prime factors of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A348616 Number of ordered factorizations of n with adjacent equal factors.

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