A347445 -id:A347445 - cp's OEIS frontend

A347462 Number of distinct possible reverse-alternating products of integer partitions of n.

1, 1, 2, 3, 4, 6, 8, 11, 13, 17, 22, 28, 33, 42, 51, 59, 69, 84, 100, 117, 137, 163, 191, 222, 256, 290, 332, 378, 429, 489, 564, 643, 729, 819, 929, 1040, 1167, 1313, 1473, 1647, 1845, 2045, 2272, 2521, 2785, 3076, 3398, 3744, 4115, 4548, 5010, 5524, 6086

Offset: 0

Gus Wiseman, Oct 06 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.

			Partitions representing each of the a(7) = 11 reverse-alternating products:
     (7) -> 7
    (61) -> 1/6
    (52) -> 2/5
   (511) -> 5
    (43) -> 3/4
   (421) -> 2
  (4111) -> 1/4
   (331) -> 1
   (322) -> 3
  (3211) -> 2/3
  (2221) -> 1/2

The version for non-reverse alternating sum instead of product is A004526.
Counting only integers gives A028310, non-reverse A347707.
The version for factorizations is A038548, non-reverse A347460.
The non-reverse version is A347461.
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).
A108917 counts knapsack partitions, ranked by A299702.
A122768 counts distinct submultisets of partitions.
A126796 counts complete partitions.
A293627 counts knapsack factorizations by sum.
A301957 counts distinct subset-products of prime indices.
A304792 counts subset-sums of partitions, positive A276024, strict A284640.
A304793 counts distinct positive subset-sums of prime indices.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
Cf. A000070, A001055, A002033, A002219, A028983, A119620, A325768, A345926, A347443, A347444, A347445, A347446.

revaltprod[q_]:=Product[Reverse[q][[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Union[revaltprod/@IntegerPartitions[n]]],{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).

A347444 Number of odd-length integer partitions of n with integer alternating product.

Original entry on oeis.org

0, 1, 1, 2, 2, 4, 4, 8, 7, 14, 13, 24, 21, 40, 35, 62, 55, 99, 85, 151, 128, 224, 195, 331, 283, 481, 416, 690, 593, 980, 844, 1379, 1189, 1918, 1665, 2643, 2292, 3630, 3161, 4920, 4299, 6659, 5833, 8931, 7851, 11905, 10526, 15805, 13987, 20872, 18560, 27398

Offset: 0

Gus Wiseman, Sep 14 2021

nonn

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

The reverse version (integer reverse-alternating product) is the same.

			The a(1) = 1 through a(9) = 14 partitions:
  (1)  (2)  (3)    (4)    (5)      (6)      (7)        (8)        (9)
            (111)  (211)  (221)    (222)    (322)      (332)      (333)
                          (311)    (411)    (331)      (422)      (441)
                          (11111)  (21111)  (421)      (611)      (522)
                                            (511)      (22211)    (621)
                                            (22111)    (41111)    (711)
                                            (31111)    (2111111)  (22221)
                                            (1111111)             (32211)
                                                                  (33111)
                                                                  (42111)
                                                                  (51111)
                                                                  (2211111)
                                                                  (3111111)
                                                                  (111111111)

The reciprocal version is A035363.
Allowing any alternating product gives A027193.
The multiplicative version (factorizations) is A347441.
Allowing any length gives A347446, reverse A347445.
Allowing any length and alternating product > 1 gives A347448.
Allowing any reverse-alternating product > 1 gives A347449.
Ranked by A347453.
The even-length instead of odd-length version is A347704.
A000041 counts partitions.
A000302 counts odd-length compositions, ranked by A053738.
A025047 counts wiggly compositions.
A026424 lists numbers with odd bigomega.
A027187 counts partitions of even length, strict A067661.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1, ranked by A028982.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A339890 counts odd-length factorizations.
A347437 counts factorizations with integer alternating product.
A347461 counts possible alternating products of partitions.
Cf. A000070, A236559, A236913, A236914, A304620, A344654, A347439, A347442, A347456, A347457, A347460, A347462, A347463.

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

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

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

A347704 Number of even-length integer partitions of n with integer alternating product.

Original entry on oeis.org

1, 0, 1, 1, 3, 2, 6, 4, 11, 8, 18, 13, 33, 22, 49, 38, 79, 58, 122, 90, 186, 139, 268, 206, 402, 304, 569, 448, 817, 636, 1152, 907, 1612, 1283, 2220, 1791, 3071, 2468, 4162, 3409, 5655, 4634, 7597, 6283, 10171, 8478, 13491, 11336, 17906, 15088, 23513, 20012

Offset: 0

Gus Wiseman, Sep 17 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(9) = 8 partitions:
  (11)  (21)  (22)    (41)    (33)      (61)      (44)        (63)
              (31)    (2111)  (42)      (2221)    (62)        (81)
              (1111)          (51)      (4111)    (71)        (3321)
                              (2211)    (211111)  (2222)      (4221)
                              (3111)              (3221)      (6111)
                              (111111)            (3311)      (222111)
                                                  (4211)      (411111)
                                                  (5111)      (21111111)
                                                  (221111)
                                                  (311111)
                                                  (11111111)

Allowing any alternating product >= 1 gives A000041, reverse A344607.
Allowing any alternating product gives A027187, odd bisection A236914.
The Heinz numbers of these partitions are given by A028260 /\ A347457.
The reverse and reciprocal versions are both A035363.
The multiplicative version (factorizations) is A347438, reverse A347439.
The odd-length instead of even-length version is A347444.
Allowing any length gives A347446.
A034008 counts even-length compositions, ranked by A053754.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
Cf. A000070, A067661, A236913, A304620, A339846, A347437, A347441, A347442, A347445, A347448, A347449, A347454, A347462.

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

A347707 Number of distinct possible integer reverse-alternating products of integer partitions of n.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 6, 8, 8, 9, 9, 11, 11, 13, 12, 14, 14, 15, 15, 18, 17, 19, 18, 20, 20, 22, 21, 25, 23, 26, 25, 28, 26, 29, 27, 31, 29, 32, 31, 34, 33, 35, 34, 38, 35, 41, 37, 42, 40, 43, 41, 45, 42, 46, 44, 48, 45, 50, 46, 52, 49, 53

Offset: 0

Gus Wiseman, Oct 13 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.

			Representative partitions for each of the a(16) = 11 alternating products:
         (16) -> 16
     (14,1,1) -> 14
     (12,2,2) -> 12
     (10,3,3) -> 10
      (8,4,4) -> 8
  (9,3,2,1,1) -> 6
     (10,4,2) -> 5
     (12,3,1) -> 4
  (6,4,2,2,2) -> 3
     (10,5,1) -> 2
        (8,8) -> 1

The even-length version is A000035.
The non-reverse version is A028310.
The version for factorizations has special cases:
- no changes: A046951
- non-reverse: A046951
- non-integer: A038548
- odd-length: A046951 + A010052
- non-reverse non-integer: A347460
- non-integer odd-length: A347708
- non-reverse odd-length: A046951 + A010052
- non-reverse non-integer odd-length: A347708
The odd-length version is a(n) - A059841(n).
These partitions are counted by A347445, non-reverse A347446.
Counting non-integers gives A347462, non-reverse A347461.
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.
A119620 counts partitions with alternating product 1, ranked by A028982.
A276024 counts distinct positive subset-sums of partitions, strict A284640.
A304792 counts distinct subset-sums of partitions.
A325534 counts separable partitions, complement A325535.
A345926 counts possible alternating sums of permutations of prime indices.
Cf. A000070, A002033, A002219, A108917, A122768, A325765, A344654, A344740, A347443, A347444, A347448, A347449.

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

A347048 Number of even-length ordered factorizations of n with integer alternating product.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 3, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 4, 0, 0, 0, 7, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 6, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 11, 0, 0, 0, 1, 0, 0, 0, 11, 0, 0, 1, 1, 0, 0, 0, 6, 3, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 8, 0, 1, 1, 7, 0, 0, 0, 1, 0

Offset: 1

Gus Wiseman, Oct 10 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 a(n) ordered factorizations for n = 16, 32, 36, 48, 64, 96:
  4*4       8*4       6*6       12*4      8*8           24*4
  8*2       16*2      12*3      24*2      16*4          48*2
  2*2*2*2   2*2*4*2   18*2      2*2*6*2   32*2          3*2*8*2
            4*2*2*2   2*2*3*3   3*2*4*2   2*2*4*4       4*2*6*2
                      2*3*3*2   4*2*3*2   2*2*8*2       6*2*4*2
                      3*2*2*3   6*2*2*2   2*4*4*2       8*2*3*2
                      3*3*2*2             4*2*2*4       12*2*2*2
                                          4*2*4*2       2*2*12*2
                                          4*4*2*2
                                          8*2*2*2
                                          2*2*2*2*2*2

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

Positions of 0's are A005117 \ {2}.
The restriction to powers of 2 is A027306.
Heinz numbers of partitions of this type are A028260 /\ A347457.
Positions of 3's appear to be A030514.
Positions of 1's are 1 and A082293.
Allowing non-integer alternating product gives A174725, unordered A339846.
The odd-length version is A347049.
The unordered version is A347438, reverse A347439.
Allowing any length gives A347463.
Partitions of this type are counted by A347704, reverse A035363.
A001055 counts factorizations (strict A045778, ordered A074206).
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.
A339890 counts odd-length factorizations, ordered A174726.
A347050 = factorizations with alternating permutation, complement A347706.
A347437 = factorizations with integer alternating product, reverse A347442.
A347446 = partitions with integer alternating product, reverse A347445.
A347460 counts possible alternating products of factorizations.
Cf. A025047, A038548, A116406, A138364, A347440, A347441, A347454, A347456, A347458, A347459, A347464.

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

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

a(n) = A347463(n) - A347049(n).

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

A347049 Number of odd-length ordered factorizations of n with integer alternating product.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 4, 1, 3, 1, 3, 1, 1, 1, 5, 1, 1, 2, 3, 1, 1, 1, 7, 1, 1, 1, 11, 1, 1, 1, 5, 1, 1, 1, 3, 3, 1, 1, 14, 1, 3, 1, 3, 1, 5, 1, 5, 1, 1, 1, 7, 1, 1, 3, 15, 1, 1, 1, 3, 1, 1, 1, 24, 1, 1, 3, 3, 1, 1, 1, 14, 4, 1, 1, 7, 1, 1, 1, 5, 1, 7, 1, 3, 1, 1, 1, 24, 1, 3, 3, 11

Offset: 1

Gus Wiseman, Oct 10 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 a(n) ordered factorizations for n = 2, 8, 12, 16, 24, 32, 36, 48:
  2   8       12      16      24      32          36      48
      2*2*2   2*2*3   2*2*4   2*2*6   2*2*8       2*2*9   2*4*6
              3*2*2   2*4*2   3*2*4   2*4*4       2*3*6   3*2*8
                      4*2*2   4*2*3   4*2*4       2*6*3   3*4*4
                              6*2*2   4*4*2       3*2*6   4*2*6
                                      8*2*2       3*3*4   4*4*3
                                      2*2*2*2*2   3*6*2   6*2*4
                                                  4*3*3   6*4*2
                                                  6*2*3   8*2*3
                                                  6*3*2   12*2*2
                                                  9*2*2   2*2*12
                                                          2*2*2*2*3
                                                          2*2*3*2*2
                                                          3*2*2*2*2

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

Positions of 2's appear to be A030078.
Positions of 3's appear to be A054753.
Positions of 1's appear to be A167207.
Allowing non-integer alternating product gives A174726, unordered A339890.
The even-length version is A347048.
The unordered version is A347441, with same reverse version.
The case of partitions is A347444, ranked by A347453.
Allowing any length gives A347463.
A001055 counts factorizations (strict A045778, ordered A074206).
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1, ranked by A028982.
A339846 counts even-length factorizations, ordered A174725.
A347050 = factorizations with alternating permutation, complement A347706.
A347437 = factorizations with integer alternating product, reverse A347442.
A347438 = factorizations with alternating product 1, on squares A273013.
A347439 = factorizations with integer reciprocal alternating product.
A347446 = partitions with integer alternating product, reverse A347445.
A347457 lists Heinz numbers of partitions with integer alternating product.
A347460 counts possible alternating products of factorizations.
A347708 counts possible alternating products of odd-length factorizations.
Cf. A025047, A035363, A038548, A116406, A347440, A347454, A347456, A347458, A347459, A347464, A347704.

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

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

a(n) = A347463(n) - A347048(n).

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

cp's OEIS Frontend

A347462 Number of distinct possible reverse-alternating products of integer partitions of n.

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

A347444 Number of odd-length integer partitions of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347704 Number of even-length integer partitions of n with integer alternating product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347707 Number of distinct possible integer reverse-alternating products of integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica