A347448 -id:A347448 - 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).

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

A347455 Heinz numbers of integer partitions with non-integer alternating product.

Original entry on oeis.org

15, 30, 33, 35, 51, 55, 60, 66, 69, 70, 77, 85, 91, 93, 95, 102, 105, 110, 119, 120, 123, 132, 135, 138, 140, 141, 143, 145, 154, 155, 161, 165, 170, 177, 182, 186, 187, 190, 201, 203, 204, 205, 209, 210, 215, 217, 219, 220, 221, 231, 238, 240, 246, 247, 249

Offset: 1

Gus Wiseman, Oct 04 2021

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).
Also numbers whose multiset of prime indices has non-integer reverse-alternating product.

			The terms and their reversed prime indices begin:
     15: (3,2)        102: (7,2,1)        161: (9,4)
     30: (3,2,1)      105: (4,3,2)        165: (5,3,2)
     33: (5,2)        110: (5,3,1)        170: (7,3,1)
     35: (4,3)        119: (7,4)          177: (17,2)
     51: (7,2)        120: (3,2,1,1,1)    182: (6,4,1)
     55: (5,3)        123: (13,2)         186: (11,2,1)
     60: (3,2,1,1)    132: (5,2,1,1)      187: (7,5)
     66: (5,2,1)      135: (3,2,2,2)      190: (8,3,1)
     69: (9,2)        138: (9,2,1)        201: (19,2)
     70: (4,3,1)      140: (4,3,1,1)      203: (10,4)
     77: (5,4)        141: (15,2)         204: (7,2,1,1)
     85: (7,3)        143: (6,5)          205: (13,3)
     91: (6,4)        145: (10,3)         209: (8,5)
     93: (11,2)       154: (5,4,1)        210: (4,3,2,1)
     95: (8,3)        155: (11,3)         215: (14,3)
For example, (4,3,2,1) has alternating product 4/3*2/1 = 8/3, so the Heinz number 210 is in the sequence.

The reciprocal version is A028983, complement A028982.
Factorizations not of this type are counted by A347437.
Partitions not of this type are counted by A347446.
The complement of the reverse reciprocal version is A347451.
The complement in the odd-length case is A347453.
The complement of the reverse version is A347454.
The complement is A347457.
A056239 adds up prime indices, row sums of A112798.
A316524 gives the alternating sum of prime indices (reverse: A344616).
A335433 lists numbers whose prime indices are separable, complement A335448.
A347461 counts possible alternating products of partitions, reverse A347462.
Cf. A001105, A001222, A028260, A119620, A119899, A316523, A344606, A344617, A346703, A346704, A347448, A347450, A347465.

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],!IntegerQ[altprod[Reverse[primeMS[#]]]]&]

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

A348552 Number of integer partitions of n with the same alternating product as alternating sum.

Original entry on oeis.org

0, 1, 1, 2, 2, 4, 5, 7, 8, 12, 14, 19, 23, 31, 36, 46, 55, 69, 83, 100, 122, 144, 175, 203, 249, 284, 348, 393, 484, 536, 661, 725, 898, 975, 1208, 1297, 1614, 1715, 2136, 2251, 2812, 2939, 3674, 3813, 4779, 4920, 6172, 6315, 7943, 8070, 10156, 10263, 12944

Offset: 0

Gus Wiseman, Oct 30 2021

nonn

The alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i. In the case of a partition, this equals the number of odd parts in the conjugate partition.

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(9) = 12 partitions:
  1   2   3     4     5       6       7         8         9
          111   211   221     42      322       332       333
                      311     222     331       422       441
                      11111   411     511       611       522
                              21111   22111     4211      711
                                      31111     22211     22221
                                      1111111   41111     32211
                                                2111111   33111
                                                          51111
                                                          2211111
                                                          3111111
                                                          111111111
For example, we have 3 - 2 + 2 - 1 + 1 = 3 / 2 * 2 / 1 * 1 = 3, so the partition (3,2,2,1,1) is counted under a(9).

The version for reverse-alternating sum (or product, or both) is A025065.
Dominated by A347446.
A000041 counts partitions with alternating sum 0.
A027187 counts partitions of even length.
A027193 counts partitions of odd length, ranked by A026424.
A097805 counts compositions by sum and alternating sum.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A119620 counts partitions with alternating product 1, ranked by A028982.
A124754 gives alternating sums of standard compositions.
A277103 counts partitions with the same alternating sum as their conjugate.
A345927 gives alternating sums of binary expansions.
Cf. A000070, A000097, A001700, A025047, A236913, A325534, A325535, A339846, A344607, A345196, A347443, A347448.

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347455 Heinz numbers of integer partitions with non-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

A348552 Number of integer partitions of n with the same alternating product as alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica