A347443 -id:A347443 - cp's OEIS frontend

A347453 Heinz numbers of odd-length integer partitions with integer alternating (or reverse-alternating) product.

2, 3, 5, 7, 8, 11, 12, 13, 17, 18, 19, 20, 23, 27, 28, 29, 31, 32, 37, 41, 42, 43, 44, 45, 47, 48, 50, 52, 53, 59, 61, 63, 67, 68, 71, 72, 73, 75, 76, 78, 79, 80, 83, 89, 92, 97, 98, 99, 101, 103, 107, 108, 109, 112, 113, 114, 116, 117, 124, 125, 127, 128, 130

Offset: 1

Gus Wiseman, Sep 24 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 odd length and integer alternating product, where a prime index of n is a number m such that prime(m) divides n.

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

The reciprocal version is A000290.
Allowing any alternating product <= 1 gives A001105.
Allowing any alternating product gives A026424.
Factorizations of this type are counted by A347441.
These partitions are counted by A347444.
Allowing any length gives A347454.
Allowing any alternating product > 1 gives A347465.
A027193 counts odd-length partitions.
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.
A344606 counts alternating permutations of prime indices.
A347446 counts partitions with integer alternating product.
A347457 ranks partitions with integer alt product, complement A347455.
A347461 counts possible alternating products of partitions.
A347462 counts possible reverse-alternating products of partitions.
Cf. A001222, A028260, A028982, A028983, A339890, A344617, A344653, A345958, A346703, A346704, A347437, A347443, A347450, A347451.

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

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

A100824 Number of partitions of n with at most one odd part.

Original entry on oeis.org

1, 1, 1, 2, 2, 4, 3, 7, 5, 12, 7, 19, 11, 30, 15, 45, 22, 67, 30, 97, 42, 139, 56, 195, 77, 272, 101, 373, 135, 508, 176, 684, 231, 915, 297, 1212, 385, 1597, 490, 2087, 627, 2714, 792, 3506, 1002, 4508, 1255, 5763, 1575, 7338, 1958, 9296, 2436, 11732, 3010, 14742

Offset: 0

Vladeta Jovovic, Jan 13 2005

From Gus Wiseman, Jan 21 2022: (Start)
Also the number of integer partitions of n with alternating sum <= 1, where the alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i. These are the conjugates of partitions with at most one odd part. For example, the a(1) = 1 through a(9) = 12 partitions with alternating sum <= 1 are:
  1  11  21   22    32     33      43       44        54
         111  1111  221    2211    331      2222      441
                    2111   111111  2221     3311      3222
                    11111          3211     221111    3321
                                   22111    11111111  4311
                                   211111             22221
                                   1111111            33111
                                                      222111
                                                      321111
                                                      2211111
                                                      21111111
                                                      111111111
(End)

			From _Gus Wiseman_, Jan 21 2022: (Start)
The a(1) = 1 through a(9) = 12 partitions with at most one odd part:
  (1)  (2)  (3)   (4)   (5)    (6)    (7)     (8)     (9)
            (21)  (22)  (32)   (42)   (43)    (44)    (54)
                        (41)   (222)  (52)    (62)    (63)
                        (221)         (61)    (422)   (72)
                                      (322)   (2222)  (81)
                                      (421)           (432)
                                      (2221)          (441)
                                                      (522)
                                                      (621)
                                                      (3222)
                                                      (4221)
                                                      (22221)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..1000

Cf. A008951, A000070, A000097, A000098, A000710.
The case of alternating sum 0 (equality) is A000070.
A multiplicative version is A339846.
These partitions are ranked by A349150, conjugate A349151.
A000041 = integer partitions, strict A000009.
A027187 = partitions of even length, strict A067661, ranked by A028260.
A027193 = partitions of odd length, ranked by A026424.
A058695 = partitions of odd numbers.
A103919 = partitions by sum and alternating sum (reverse: A344612).
A277103 = partitions with the same number of odd parts as their conjugate.
Cf. A000984, A001791, A008549, A097805, A119620, A182616, A236559, A236913, A236914, A304620, A344607, A345958, A347443.

seq(coeff(convert(series((1+x/(1-x^2))/mul(1-x^(2*i),i=1..100),x,100),polynom),x,n),n=0..60); (C. Ronaldo)

nmax = 50; CoefficientList[Series[(1+x/(1-x^2)) * Product[1/(1-x^(2*k)), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 07 2016 *)
Table[Length[Select[IntegerPartitions[n],Count[#,?OddQ]<=1&]],{n,0,30}] (* _Gus Wiseman, Jan 21 2022 *)

a(n) = if(n%2==0, numbpart(n/2), sum(i=1, (n+1)\2, numbpart((n-2*i+1)\2))) \\ David A. Corneth, Jan 23 2022

G.f.: (1+x/(1-x^2))/Product(1-x^(2*i), i=1..infinity). More generally, g.f. for number of partitions of n with at most k odd parts is (1+Sum(x^i/Product(1-x^(2*j), j=1..i), i=1..k))/Product(1-x^(2*i), i=1..infinity).
a(n) ~ exp(sqrt(n/3)*Pi) / (2*sqrt(3)*n) if n is even and a(n) ~ exp(sqrt(n/3)*Pi) / (2*Pi*sqrt(n)) if n is odd. - Vaclav Kotesovec, Mar 07 2016
a(2*n) = A000041(n). a(2*n + 1) = A000070(n). - David A. Corneth, Jan 23 2022

More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 19 2005

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

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

Original entry on oeis.org

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

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

A347453 Heinz numbers of odd-length integer partitions with integer alternating (or reverse-alternating) product.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A100824 Number of partitions of n with at most one odd part.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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