A347705 -id:A347705 - cp's OEIS frontend

A347446 Number of integer partitions of n with integer alternating product.

1, 1, 2, 3, 5, 6, 10, 12, 18, 22, 31, 37, 54, 62, 84, 100, 134, 157, 207, 241, 314, 363, 463, 537, 685, 785, 985, 1138, 1410, 1616, 1996, 2286, 2801, 3201, 3885, 4434, 5363, 6098, 7323, 8329, 9954, 11293, 13430, 15214, 18022, 20383, 24017, 27141, 31893, 35960

Offset: 0

Gus Wiseman, Sep 15 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).

			The a(1) = 1 through a(7) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)
       (11)  (21)   (22)    (41)     (33)      (61)
             (111)  (31)    (221)    (42)      (322)
                    (211)   (311)    (51)      (331)
                    (1111)  (2111)   (222)     (421)
                            (11111)  (411)     (511)
                                     (2211)    (2221)
                                     (3111)    (4111)
                                     (21111)   (22111)
                                     (111111)  (31111)
                                               (211111)
                                               (1111111)

Allowing any reverse-alternating product >= 1 gives A344607.
Allowing any alternating product <= 1 gives A119620, reverse A347443.
Allowing any reverse-alternating product < 1 gives A344608.
The multiplicative version (factorizations) is A347437, reverse A347442.
The odd-length case is A347444, ranked by A347453.
The reverse version is A347445, ranked by A347454.
Allowing any alternating product > 1 gives A347448, reverse A347449.
Ranked by A347457.
The even-length case is A347704.
A000041 counts partitions.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A347461 counts possible alternating products of partitions.
Cf. A025047, A067661, A339890, A347450, A344654, A344740, A347439, A347440, A347451, A347463, A347705.

altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[IntegerPartitions[n],IntegerQ[altprod[#]]&]],{n,0,30}]

A347456 Number of factorizations of n with alternating product >= 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 2, 2, 1, 2, 1, 4, 1, 1, 1, 6, 1, 1, 1, 3, 1, 2, 1, 2, 2, 1, 1, 6, 2, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 5, 1, 1, 2, 8, 1, 2, 1, 2, 1, 2, 1, 8, 1, 1, 2, 2, 1, 2, 1, 6, 4, 1, 1, 5, 1, 1, 1

Offset: 1

Gus Wiseman, Oct 09 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
Also the number of factorizations of n with alternating sum >= 0.

			The a(n) factorizations for n = 4, 16, 24, 36, 60, 64, 96:
  4     16        24      36        60       64            96
  2*2   4*4       2*2*6   6*6       2*5*6    8*8           2*6*8
        2*2*4     2*3*4   2*2*9     3*4*5    2*4*8         3*4*8
        2*2*2*2           2*3*6     2*2*15   4*4*4         4*4*6
                          3*3*4     2*3*10   2*2*16        2*2*24
                          2*2*3*3            2*2*4*4       2*3*16
                                             2*2*2*2*4     2*4*12
                                             2*2*2*2*2*2   2*2*2*2*6
                                                           2*2*2*3*4

The case of partitions is A000041, reverse A344607.
The reverse version is A001055, strict A347705.
Positions of 3's appear to be A065036.
Positions of 1's are 1 and A167171.
The opposite version (<= instead of >=) is A339846.
The strict version (> instead of >=) is A339890, also the odd-length case.
Allowing any integer alternating product gives A347437.
The case of alternating product 1 is A347438, also the even-length case.
Allowing any integer reciprocal alternating product gives A347439.
The complement (< instead of >=) is A347440.
Allowing any integer reverse-alternating product gives A347442.
A038548 counts factorizations with a wiggly permutation.
A045778 counts strict factorizations.
A074206 counts ordered factorizations.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1.
A347447 counts strict factorizations with alternating product > 1.
Cf. A001700, A028983, A316523, A347441, A347443, A347446, A347448, A347450, A347454, A347463, A347708.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[facs[n],altprod[#]>=1&]],{n,100}]

a(n) = A347438(n) + A347440(n).

A347463 Number of ordered factorizations of n with integer alternating product.

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 4, 1, 1, 1, 7, 1, 4, 1, 4, 1, 1, 1, 6, 2, 1, 3, 4, 1, 1, 1, 11, 1, 1, 1, 18, 1, 1, 1, 6, 1, 1, 1, 4, 4, 1, 1, 20, 2, 4, 1, 4, 1, 6, 1, 6, 1, 1, 1, 8, 1, 1, 4, 26, 1, 1, 1, 4, 1, 1, 1, 35, 1, 1, 4, 4, 1, 1, 1, 20, 7, 1, 1, 8, 1, 1, 1, 6, 1, 8, 1, 4, 1, 1, 1, 32, 1, 4, 4, 18

Offset: 1

Gus Wiseman, Oct 07 2021

nonn

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

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).

			The ordered factorizations for n = 4, 8, 12, 16, 24, 32, 36:
  4     8       12      16        24      32          36
  2*2   4*2     6*2     4*4       12*2    8*4         6*6
        2*2*2   2*2*3   8*2       2*2*6   16*2        12*3
                3*2*2   2*2*4     3*2*4   2*2*8       18*2
                        2*4*2     4*2*3   2*4*4       2*2*9
                        4*2*2     6*2*2   4*2*4       2*3*6
                        2*2*2*2           4*4*2       2*6*3
                                          8*2*2       3*2*6
                                          2*2*4*2     3*3*4
                                          4*2*2*2     3*6*2
                                          2*2*2*2*2   4*3*3
                                                      6*2*3
                                                      6*3*2
                                                      9*2*2
                                                      2*2*3*3
                                                      2*3*3*2
                                                      3*2*2*3
                                                      3*3*2*2

Antti Karttunen, Table of n, a(n) for n = 1..16384
Index entries for sequences computed from exponents in factorization of n

Positions of 2's are A001248.
Positions of 1's are A005117.
The restriction to powers of 2 is A116406.
The even-length case is A347048
The odd-length case is A347049.
The unordered version is A347437, reciprocal A347439, reverse A347442.
The case of partitions is A347446, reverse A347445, ranked by A347457.
A001055 counts factorizations (strict A045778, ordered A074206).
A046099 counts factorizations with no alternating permutations.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1, ranked by A028982.
A273013 counts ordered factorizations of n^2 with alternating product 1.
A339846 counts even-length factorizations, ordered A174725.
A339890 counts odd-length factorizations, ordered A174726.
A347438 counts factorizations with alternating product 1.
A347460 counts possible alternating products of factorizations.
Cf. A025047, A038548, A138364, A347440, A347441, A347453, A347454, A347456, A347458, A347459, A347464, A347705, A347708.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[Join@@Permutations/@facs[n],IntegerQ[altprod[#]]&]],{n,100}]

A347463(n, m=n, ap=1, e=0) = if(1==n, if(e%2, 1==denominator(ap), 1==numerator(ap)), sumdiv(n, d, if(d>1, A347463(n/d, d, ap * d^((-1)^e), 1-e)))); \\ Antti Karttunen, Jul 28 2024

a(n) = A347048(n) + A347049(n).

Data section extended up to a(100) by Antti Karttunen, Jul 28 2024

A347445 Number of integer partitions of n with integer reverse-alternating product.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 7, 8, 12, 14, 20, 24, 32, 40, 50, 62, 77, 99, 115, 151, 170, 224, 251, 331, 360, 481, 517, 690, 728, 980, 1020, 1379, 1420, 1918, 1962, 2643, 2677, 3630, 3651, 4920, 4926, 6659, 6625, 8931, 8853, 11905, 11781, 15805, 15562, 20872, 20518

Offset: 0

Gus Wiseman, Sep 14 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)). The reverse-alternating product is the alternating product of the reversed sequence.

			The a(1) = 1 through a(8) = 12 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (221)    (33)      (322)      (44)
                    (211)   (311)    (222)     (331)      (332)
                    (1111)  (11111)  (411)     (421)      (422)
                                     (2211)    (511)      (611)
                                     (21111)   (22111)    (2222)
                                     (111111)  (31111)    (3311)
                                               (1111111)  (22211)
                                                          (41111)
                                                          (221111)
                                                          (2111111)
                                                          (11111111)

Allowing any reverse-alternating product >= 1 gives A344607.
Allowing any reverse-alternating product < 1 gives A344608.
The multiplicative version is A347442, unreversed A347437.
Allowing any reverse-alternating product <= 1 gives A347443.
Restricting to odd length gives A347444, ranked by A347453.
The unreversed version is A347446, ranked by A347457.
Allowing any reverse-alternating product > 1 gives A347449.
Ranked by A347454.
A000041 counts partitions, with multiplicative version A001055.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A339890 counts factorizations with alternating product > 1, reverse A347705.
A347462 counts possible reverse-alternating products of partitions.
Cf. A025047, A067661, A119620, A344654, A344740, A347439, A347440, A347448, A347450, A347451, A347461, A347463, A347704.

revaltprod[q_]:=Product[Reverse[q][[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[IntegerPartitions[n],IntegerQ[revaltprod[#]]&]],{n,0,30}]

A347448 Number of integer partitions of n with alternating product > 1.

Original entry on oeis.org

0, 0, 1, 2, 3, 5, 8, 12, 17, 25, 35, 49, 66, 90, 120, 161, 209, 275, 355, 460, 585, 750, 946, 1199, 1498, 1881, 2335, 2909, 3583, 4430, 5428, 6666, 8118, 9912, 12013, 14586, 17592, 21252, 25525, 30695, 36711, 43956, 52382, 62469, 74173, 88132, 104303, 123499

Offset: 0

Gus Wiseman, Sep 16 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).

			The a(2) = 1 through a(7) = 12 partitions:
  (2)  (3)   (4)    (5)     (6)      (7)
       (21)  (31)   (32)    (42)     (43)
             (211)  (41)    (51)     (52)
                    (311)   (222)    (61)
                    (2111)  (321)    (322)
                            (411)    (421)
                            (3111)   (511)
                            (21111)  (2221)
                                     (3211)
                                     (4111)
                                     (31111)
                                     (211111)

The strict case is A000009, except that a(0) = a(1) = 0.
Allowing any alternating product >= 1 gives A000041, reverse A344607.
Ranked by A028983 (reverse A347465), which has complement A028982.
The complement is counted by A119620, reverse A347443.
The multiplicative version is A339890, weak A347456, reverse A347705.
The even-length case is A344608.
Allowing any integer reverse-alternating product gives A347445.
Allowing any integer alternating product gives A347446.
The reverse version is A347449, also the odd-length case.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A347461 counts possible alternating products of partitions.
Cf. A000070, A086543, A100824, A236913, A325534, A325535, A339846, A344654, A345196, A347440, A347444, A347462.

a:= n-> (p-> p(n)-p(iquo(n, 2)))(combinat[numbpart]):
seq(a(n), n=0..63);  # Alois P. Heinz, Oct 04 2021

altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[IntegerPartitions[n],altprod[#]>1&]],{n,0,30}]

a(n) = A000041(n) - A119620(n).

A347458 Number of factorizations of n^2 with integer alternating product.

Original entry on oeis.org

1, 2, 2, 4, 2, 6, 2, 8, 4, 6, 2, 17, 2, 6, 6, 15, 2, 17, 2, 16, 6, 6, 2, 41, 4, 6, 8, 16, 2, 31, 2, 27, 6, 6, 6, 56, 2, 6, 6, 39, 2, 31, 2, 17, 17, 6, 2, 90, 4, 17, 6, 17, 2, 41, 6, 39, 6, 6, 2, 105, 2, 6, 17, 48, 6, 31, 2, 17, 6, 31, 2, 148, 2, 6, 17, 17, 6, 32, 2, 86, 15, 6, 2, 107, 6, 6, 6, 40, 2, 109, 6, 17

Offset: 1

Gus Wiseman, Sep 21 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
The even-length case, the case of alternating product 1, and the case of alternating sum 0 are all counted by A001055.

			The a(2) = 2 through a(8) = 8 factorizations:
  4     9     16        25    36        49    64
  2*2   3*3   4*4       5*5   6*6       7*7   8*8
              2*2*4           2*2*9           2*4*8
              2*2*2*2         2*3*6           4*4*4
                              3*3*4           2*2*16
                              2*2*3*3         2*2*4*4
                                              2*2*2*2*4
                                              2*2*2*2*2*2

Antti Karttunen, Table of n, a(n) for n = 1..16415

Positions of 2's are A000040, squares A001248.
The restriction to powers of 2 is A344611.
This is the restriction to perfect squares of A347437.
The nonsquared even-length version is A347438.
The reciprocal version is A347459, non-squared A347439.
The additive version (partitions) is the even bisection of A347446.
The nonsquared ordered version is A347463.
The case of alternating product 1 in the ordered version is A347464.
Allowing any alternating product gives A347466.
A000290 lists squares, complement A000037.
A001055 counts factorizations.
A046099 counts factorizations with no alternating permutations.
A071321 gives the alternating sum of prime factors of n (reverse: A071322).
A273013 counts ordered factorizations of n^2 with alternating product 1.
A347460 counts possible alternating products of factorizations.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A347457 ranks partitions with integer alternating product.
Cf. A062312, A119620, A330972, A346635, A347440, A347441, A347442, A347445, A347451, A347456, A347704, A347705.
Apparently, A006881 gives the positions of 6's. - Antti Karttunen, Oct 22 2023

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[facs[n^2],IntegerQ[altprod[#]]&]],{n,100}]

A347437(n, m=n, ap=1, e=0) = if(1==n, if(e%2, 1==denominator(ap), 1==numerator(ap)), sumdiv(n, d, if((d>1)&&(d<=m), A347437(n/d, d, ap * d^((-1)^e), 1-e))));
A347458(n) = A347437(n*n); \\ Antti Karttunen, Oct 22 2023

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

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

Data section extended up to a(92) by Antti Karttunen, Oct 22 2023

A347449 Number of integer partitions of n with reverse-alternating product > 1.

Original entry on oeis.org

0, 0, 1, 1, 2, 2, 5, 5, 10, 11, 20, 22, 37, 41, 66, 75, 113, 129, 190, 218, 310, 358, 497, 576, 782, 908, 1212, 1411, 1851, 2156, 2793, 3255, 4163, 4853, 6142, 7159, 8972, 10451, 12989, 15123, 18646, 21689, 26561, 30867, 37556, 43599, 52743, 61161, 73593

Offset: 0

Gus Wiseman, Sep 16 2021

nonn

All such partitions have odd length.

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)). The reverse-alternating product is the alternating product of the reversed sequence.

			The a(2) = 1 through a(9) = 11 partitions:
  (2)  (3)  (4)    (5)    (6)      (7)      (8)        (9)
            (211)  (311)  (222)    (322)    (332)      (333)
                          (321)    (421)    (422)      (432)
                          (411)    (511)    (431)      (522)
                          (21111)  (31111)  (521)      (531)
                                            (611)      (621)
                                            (22211)    (711)
                                            (32111)    (32211)
                                            (41111)    (42111)
                                            (2111111)  (51111)
                                                       (3111111)

The strict case is A067659, except that a(0) = a(1) = 0.
The even bisection is A236559.
The non-reverse multiplicative version is A339890, weak A347456.
The case of >= 1 instead of > 1 is A344607.
The opposite version is A344608, also the non-reverse even-length case.
The complement is counted by A347443, non-reverse A119620.
Allowing any integer reverse-alternating product gives A347445.
Allowing any integer alternating product gives A347446.
Reverse version of A347448; also the odd-length case.
The Heinz numbers of these partitions are the complement of A347450.
The multiplicative version (factorizations) is A347705.
A000041 counts partitions.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A100824 counts partitions of n with alternating sum <= 1.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A347462 counts possible reverse-alternating products of partitions.
Cf. A000070, A008549, A086543, A182616, A236913, A325534, A325535, A344611, A347442, A347444, A347447, A347453, A347461, A347465.

altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[IntegerPartitions[n],altprod[Reverse[#]]>1&]],{n,0,30}]

a(n) = A344607(n) - A119620(n).

A347459 Number of factorizations of n^2 with integer reciprocal alternating product.

Original entry on oeis.org

1, 1, 1, 3, 1, 4, 1, 6, 3, 4, 1, 11, 1, 4, 4, 12, 1, 11, 1, 12, 4, 4, 1, 28, 3, 4, 6, 12, 1, 19, 1, 22, 4, 4, 4, 38, 1, 4, 4, 29, 1, 21, 1, 12, 11, 4, 1, 65, 3, 11, 4, 12, 1, 29, 4, 29, 4, 4, 1, 71, 1, 4, 11, 40, 4, 22, 1, 12, 4, 18, 1, 107, 1, 4, 11, 12, 4, 22, 1, 66, 12, 4, 1, 76, 4, 4, 4, 30, 1, 71, 4, 12, 4, 4, 4, 141

Offset: 1

Gus Wiseman, Sep 22 2021

nonn

We define the reciprocal alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^i).
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
All such factorizations have even length.
Image appears to be 1, 3, 4, 6, 11, ... , missing some numbers such as 2, 5, 7, 8, 9, ...
The case of alternating product 1, the case of alternating sum 0, and the reverse version are all counted by A001055.

			The a(2) = 1 through a(10) = 4 factorizations:
    2*2  3*3  2*8      5*5  6*6      7*7  8*8          9*9      2*50
              4*4           2*18          2*32         3*27     5*20
              2*2*2*2       3*12          4*16         3*3*3*3  10*10
                            2*2*3*3       2*2*2*8               2*2*5*5
                                          2*2*4*4
                                          2*2*2*2*2*2

Antti Karttunen, Table of n, a(n) for n = 1..16384

Positions of 1's are 1 and A000040, squares A001248.
The additive version (partitions) is A000041, the even bisection of A119620.
Partitions of this type are ranked by A028982 and A347451.
The restriction to powers of 2 is A236913, the even bisection of A027187.
The nonsquared nonreciprocal even-length version is A347438.
This is the restriction to perfect squares of A347439.
The nonreciprocal version is A347458, non-squared A347437.
A000290 lists squares, complement A000037.
A001055 counts factorizations.
A046099 counts factorizations with no alternating permutations.
A273013 counts ordered factorizations of n^2 with alternating product 1.
A347460 counts possible alternating products of factorizations.
A339846 counts even-length factorizations.
A339890 counts odd-length factorizations.
A347457 ranks partitions with integer alternating product.
A347466 counts factorizations of n^2.
Cf. A062312, A316523, A330972, A344653, A346635, A347440, A347441, A347442, A347453, A347461, A347463, A347464, A347705.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
recaltprod[q_]:=Product[q[[i]]^(-1)^i,{i,Length[q]}];
Table[Length[Select[facs[n^2],IntegerQ[recaltprod[#]]&]],{n,100}]

A347439(n, m=n, ap=1, e=0) = if(1==n, !(e%2) && 1==denominator(ap), sumdiv(n, d, if(d>1 && d<=m, A347439(n/d, d, ap * d^((-1)^e), 1-e))));
A347459(n) = A347439(n^2); \\ Antti Karttunen, Jul 28 2024

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

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

Data section extended up to a(96) by Antti Karttunen, Jul 28 2024

A347465 Numbers whose multiset of prime indices has alternating product > 1.

Original entry on oeis.org

3, 5, 7, 11, 12, 13, 17, 19, 20, 23, 27, 28, 29, 30, 31, 37, 41, 42, 43, 44, 45, 47, 48, 52, 53, 59, 61, 63, 66, 67, 68, 70, 71, 73, 75, 76, 78, 79, 80, 83, 89, 92, 97, 99, 101, 102, 103, 105, 107, 108, 109, 110, 112, 113, 114, 116, 117, 120, 124, 125, 127

Offset: 1

Gus Wiseman, Sep 27 2021

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).
All terms have odd bigomega (A001222).
Also Heinz numbers integer partitions with reverse-alternating product > 1.

			The terms and their prime indices begin:
      3: {2}         37: {12}            68: {1,1,7}
      5: {3}         41: {13}            70: {1,3,4}
      7: {4}         42: {1,2,4}         71: {20}
     11: {5}         43: {14}            73: {21}
     12: {1,1,2}     44: {1,1,5}         75: {2,3,3}
     13: {6}         45: {2,2,3}         76: {1,1,8}
     17: {7}         47: {15}            78: {1,2,6}
     19: {8}         48: {1,1,1,1,2}     79: {22}
     20: {1,1,3}     52: {1,1,6}         80: {1,1,1,1,3}
     23: {9}         53: {16}            83: {23}
     27: {2,2,2}     59: {17}            89: {24}
     28: {1,1,4}     61: {18}            92: {1,1,9}
     29: {10}        63: {2,2,4}         97: {25}
     30: {1,2,3}     66: {1,2,5}         99: {2,2,5}
     31: {11}        67: {19}           101: {26}

The squarefree case is A030059 without 2.
The reverse version is A028983, counted by A119620.
The opposite version (< 1 instead of > 1) is A119899.
Factorizations of this type are counted by A339890, reverse A347705.
The weak version (>= 1 instead of > 1) is A344609.
Partitions of this type are counted by A347449, reverse A347448.
The complement is A347450, counted by A339846 or A347443.
Allowing any integer reverse-alternating product gives A347454.
Allowing any integer alternating product gives A347457.
A335433 ranks inseparable partitions, complement A335448.
A347446 counts partitions with integer alternating product, reverse A347445.
Cf. A008549, A344607, A344608, A344611, A347442, A347444, A347447, A347453, A347456, A347461, A347462.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Select[Range[100],altprod[primeMS[#]]>1&]

A347464 Number of even-length ordered factorizations of n^2 into factors > 1 with alternating product 1.

Original entry on oeis.org

1, 1, 1, 2, 1, 5, 1, 6, 2, 5, 1, 26, 1, 5, 5, 20, 1, 26, 1, 26, 5, 5, 1, 134, 2, 5, 6, 26, 1, 73, 1, 70, 5, 5, 5, 230, 1, 5, 5, 134, 1, 73, 1, 26, 26, 5, 1, 670, 2, 26, 5, 26, 1, 134, 5, 134, 5, 5, 1, 686, 1, 5, 26, 252, 5, 73, 1, 26, 5, 73, 1, 1714, 1, 5, 26

Offset: 1

Gus Wiseman, Sep 23 2021

nonn

An ordered factorization of n is a sequence of positive integers > 1 with product n.
We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).
Also the number of ordered pairs of ordered factorizations of n, both of the same length.
Note that the version for all n (not just squares) is 0 except at perfect squares.

			The a(12) = 26 ordered factorizations:
  (2*2*6*6)      (3*2*4*6)      (6*2*2*6)  (4*2*3*6)  (12*12)
  (2*3*6*4)      (3*3*4*4)      (6*3*2*4)  (4*3*3*4)
  (2*4*6*3)      (3*4*4*3)      (6*4*2*3)  (4*4*3*3)
  (2*6*6*2)      (3*6*4*2)      (6*6*2*2)  (4*6*3*2)
  (2*2*2*2*3*3)  (3*2*2*2*2*3)
  (2*2*2*3*3*2)  (3*2*2*3*2*2)
  (2*2*3*2*2*3)  (3*3*2*2*2*2)
  (2*2*3*3*2*2)
  (2*3*2*2*3*2)
  (2*3*3*2*2*2)
For example, the ordered factorization 6*3*2*4 = 144 has alternating product 6/3*2/4 = 1, so is counted under a(12).

Index entries for sequences computed from exponents in factorization of n

Positions of 1's are A008578 (1 and A000040).
The restriction to powers of 2 is A000984.
Positions of 2's are A001248.
The not necessarily even-length version is A273013.
A000290 lists squares, complement A000037.
A001055 counts factorizations.
A027187 counts even-length partitions.
A074206 counts ordered factorizations.
A119620 counts partitions with alternating product 1, ranked by A028982.
A339846 counts even-length factorizations, ordered A347706.
A347438 counts factorizations with alternating product 1.
A347457 ranks partitions with integer alternating product.
A347460 counts possible alternating products of factorizations.
A347466 counts factorizations of n^2.
Cf. A062312, A339890, A347437, A347439, A347440, A347442, A347456, A347459, A347463, A347705.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Select[Join@@Permutations/@facs[n^2],EvenQ[Length[#]]&&altprod[#]==1&]],{n,100}]

A347464aux(n, k=0, t=1) = if(1==n, (0==k)&&(1==t), my(s=0); fordiv(n, d, if((d>1), s += A347464aux(n/d, 1-k, t*(d^((-1)^k))))); (s));
A347464(n) = A347464aux(n^2); \\ Antti Karttunen, Oct 30 2021

cp's OEIS Frontend

A347446 Number of integer partitions of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347456 Number of factorizations of n with alternating product >= 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A347463 Number of ordered factorizations of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A347445 Number of integer partitions of n with integer reverse-alternating product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347448 Number of integer partitions of n with alternating product > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

Formula

A347458 Number of factorizations of n^2 with integer alternating product.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A347449 Number of integer partitions of n with reverse-alternating product > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A347459 Number of factorizations of n^2 with integer reciprocal alternating product.

Views

Author

Keywords