A347441 -id:A347441 - cp's OEIS frontend

A347705 Number of factorizations of n with reverse-alternating product > 1.

0, 1, 1, 1, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 2, 3, 1, 4, 1, 4, 2, 2, 1, 7, 1, 2, 3, 4, 1, 5, 1, 7, 2, 2, 2, 7, 1, 2, 2, 7, 1, 5, 1, 4, 4, 2, 1, 12, 1, 4, 2, 4, 1, 7, 2, 7, 2, 2, 1, 11, 1, 2, 4, 8, 2, 5, 1, 4, 2, 5, 1, 16, 1, 2, 4, 4, 2, 5, 1, 12, 3, 2, 1, 11, 2

Offset: 1

Gus Wiseman, Oct 12 2021

nonn

A factorization of n is a weakly increasing 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 reverse-alternating product is the alternating product of the reversed sequence.

			The a(n) factorizations for n = 2, 6, 8, 12, 24, 30, 48, 60:
  2   6     8       12      24        30      48          60
      2*3   2*4     2*6     3*8       5*6     6*8         2*30
            2*2*2   3*4     4*6       2*15    2*24        3*20
                    2*2*3   2*12      3*10    3*16        4*15
                            2*2*6     2*3*5   4*12        5*12
                            2*3*4             2*3*8       6*10
                            2*2*2*3           2*4*6       2*5*6
                                              3*4*4       3*4*5
                                              2*2*12      2*2*15
                                              2*2*2*6     2*3*10
                                              2*2*3*4     2*2*3*5
                                              2*2*2*2*3

Positions of 1's are A000430.
The weak version (>= instead of >) is A001055, non-reverse A347456.
The non-reverse version is A339890, strict A347447.
The version for reverse-alternating product 1 is A347438.
Allowing any integer reciprocal alternating product gives A347439.
The even-length case is A347440, also the opposite reverse version.
Allowing any integer rev-alt product gives A347442, non-reverse A347437.
The version for partitions is A347449, non-reverse A347448.
A001055 counts factorizations (strict A045778, ordered A074206).
A038548 counts possible rev-alt products of factorizations, integer A046951.
A103919 counts partitions by sum and alternating sum, reverse A344612.
A292886 counts knapsack factorizations, by sum A293627.
A347707 counts possible integer reverse-alternating products of partitions.
Cf. A028983, A119620, A339846, A347441, A347443, A347450, A347463, A347466.

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

a(n) = A001055(n) - A347438(n).

A347447 Number of strict factorizations of n with alternating product > 1.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 4, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 4, 1, 1, 1

Offset: 1

Gus Wiseman, Sep 23 2021

nonn

A strict factorization of n is an increasing sequence of distinct 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)).
All such factorizations must have odd length.

			The a(720) = 30 factorizations:
  (2*4*90)     (3*4*60)   (4*5*36)   (5*6*24)  (6*8*15)   (8*9*10)  (720)
  (2*5*72)     (3*5*48)   (4*6*30)   (5*8*18)  (6*10*12)
  (2*6*60)     (3*6*40)   (4*9*20)   (5*9*16)
  (2*8*45)     (3*8*30)   (4*10*18)
  (2*9*40)     (3*10*24)  (4*12*15)
  (2*10*36)    (3*12*20)
  (2*12*30)    (3*15*16)
  (2*15*24)
  (2*18*20)
  (2*3*120)
  (2*3*4*5*6)

Allowing any alternating product gives A045778.
The reverse additive version (or restriction to powers of 2) is A067659.
The non-strict version is A339890.
Allowing equal parts and any alternating product < 1 gives A347440.
Allowing equal parts and any alternating product >= 1 gives A347456.
A046099 counts factorizations with no alternating permutations.
A273013 counts ordered factorizations of n^2 with alternating product 1.
A339846 counts even-length factorizations.
A347437 counts factorizations with integer alternating product.
A347441 counts odd-length factorizations with integer alternating product.
A347460 counts possible alternating products of factorizations.
Cf. A000009, A005117, A030059, A119620, A119899, A330972, A344608, A347438, A347439, A347442, A347463.

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],UnsameQ@@#&&altprod[#]>1&]],{n,100}]

A347708 Number of distinct possible alternating products of odd-length factorizations of n.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 2, 1, 3, 1, 1, 1, 3, 1, 1, 1, 3, 1, 2, 1, 2, 2, 1, 1, 4, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 1, 5, 1, 1, 2, 3, 1, 2, 1, 2, 1, 2, 1, 5, 1, 1, 2, 2, 1, 2, 1, 4, 2, 1, 1, 5, 1, 1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 5, 1, 2, 2, 3, 1, 2, 1, 3, 2

Offset: 1

Gus Wiseman, Oct 11 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.
Note that it is sufficient to look at only length-1 and length-3 factorizations; cf. A347709.

			Representative factorizations for each of the a(180) = 7 alternating products:
  (2*2*3*3*5) -> 5
     (2*2*45) -> 45
     (2*3*30) -> 20
     (2*5*18) -> 36/5
     (2*9*10) -> 20/9
     (3*4*15) -> 45/4
        (180) -> 180

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

The version for partitions is A028310, reverse A347707.
Positions of 1's appear to be A037143 \ {1}.
The even-length version for n > 1 is A072670, strict A211159.
Counting only integers appears to give A293234, with evens A046951.
This is the odd-length case of A347460, reverse A038548.
The any-length version for partitions is A347461, reverse A347462.
The length-3 case is A347709.
A001055 counts factorizations (strict A045778, ordered A074206).
A056239 adds up prime indices, row sums of A112798.
A276024 counts distinct positive subset-sums of partitions.
A292886 counts knapsack factorizations, by sum A293627.
A301957 counts distinct subset-products of prime indices.
A304792 counts distinct subset-sums of partitions.
A347050 = factorizations w/ an alternating permutation, complement A347706.
A347441 counts odd-length factorizations with integer alternating product.
Cf. A002033, A103919, A108917, A119620, A325770, A339846, A339890, A347437, A347438, A347439, A347440, A347442, A347456.

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[Union[altprod/@Select[facs[n],OddQ[Length[#]]&]]],{n,100}]

altprod(facs) = prod(i=1,#facs,facs[i]^((-1)^(i-1)));
A347708aux(n, m=n, facs=List([])) = if(1==n, if((#facs)%2, altprod(facs), 0), my(newfacs, r, rats=List([])); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); r = A347708aux(n/d, d, newfacs); if(r, rats = concat(rats,r)))); (rats));
A347708(n) = if(1==n,0,#Set(A347708aux(n))); \\ Antti Karttunen, Jan 29 2025

Conjecture: For n > 1, a(n) = 1 + A347460(n) - A038548(n) + A072670(n).

Data section extended to a(105) by Antti Karttunen, Jan 29 2025

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

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

A347705 Number of factorizations of n with reverse-alternating product > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A347447 Number of strict factorizations of n with alternating product > 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347708 Number of distinct possible alternating products of odd-length factorizations of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions