A277579 -id:A277579 - cp's OEIS frontend

A045931 Number of partitions of n with equal number of even and odd parts.

1, 0, 0, 1, 0, 2, 1, 3, 2, 5, 5, 7, 9, 11, 16, 18, 25, 28, 41, 44, 62, 70, 94, 107, 140, 163, 207, 245, 302, 361, 440, 527, 632, 763, 904, 1090, 1285, 1544, 1812, 2173, 2539, 3031, 3538, 4202, 4896, 5793, 6736, 7934, 9221, 10811, 12549, 14661, 16994, 19780

Offset: 0

David W. Wilson

nonn

The trivariate g.f. with x marking weight (i.e., sum of the parts), t marking number of odd parts and s marking number of even parts, is 1/product((1-tx^(2j-1))(1-sx^(2j)), j=1..infinity). - Emeric Deutsch, Mar 30 2006

			a(9) = 5 because we have [8,1], [7,2], [6,3], [5,4] and [2,2,2,1,1,1].
From _Gus Wiseman_, Jan 23 2022: (Start)
The a(0) = 1 through a(12) = 9 partitions (A = 10, empty columns indicated by dots):
  ()  .  .  21   .  32   2211   43   3221   54       3322   65       4332
                    41          52   4211   63       4321   74       4431
                                61          72       4411   83       5322
                                            81       5221   92       5421
                                            222111   6211   A1       6321
                                                            322211   6411
                                                            422111   7221
                                                                     8211
                                                                     22221111
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..3500 (first 1001 terms from David W. Wilson)

The version for subsets of {1..n} is A001405.
Dominated by A027187 (partitions of even length).
More odd/even parts: A108950/A108949.
More or same number of odd/even parts: A130780/A171966.
The strict case is A239241.
This is column k = 0 of the triangle A240009.
Counting only distinct parts gives A241638, ranked by A325700.
A half-conjugate version is A277579.
These partitions are ranked by A325698.
A000041 counts integer partitions, strict A000009.
A047993 counts balanced partitions, ranked by A106529.
A257991/A257992 count odd/even parts by Heinz number.
Cf. A000070, A000700, A000712, A027193, A035363, A097613, A195017.

g:=1/product((1-t*x^(2*j-1))*(1-s*x^(2*j)),j=1..30): gser:=simplify(series(g,x=0,56)): P[0]:=1: for n from 1 to 53 do P[n]:=subs(s=1/t,coeff(gser,x^n)) od: seq(coeff(t*P[n],t),n=0..53); # Emeric Deutsch, Mar 30 2006

p[n_] := p[n] = Select[IntegerPartitions[n], Count[#, ?OddQ] == Count[#, ?EvenQ] &]; t = Table[p[n], {n, 0, 10}] (* partitions of n with # odd parts = # even parts *)
TableForm[t] (* partitions, vertical format *)
Table[Length[p[n]], {n, 0, 30}] (* A045931 *)
(* Peter J. C. Moses, Mar 10 2014 *)
nmax = 100; CoefficientList[Series[Sum[x^(3*k) / Product[(1 - x^(2*j))^2, {j, 1, k}], {k, 0, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 15 2025 *)

G.f.: Sum_{k>=0} x^(3*k)/Product_{i=1..k} (1-x^(2*i))^2. - Vladeta Jovovic, Aug 18 2007
a(n) = A000041(n)-A171967(n) = A130780(n)-A108950(n) = A171966(n)-A108949(n). - Reinhard Zumkeller, Jan 21 2010
a(n) = A000041(n) - A108950(n) - A108949(n) = A130780(n) + A171966(n) - A000041(n). - Gus Wiseman, Jan 23 2022
a(n) ~ Pi * exp(Pi*sqrt(2*n/3)) / (48*n^(3/2)). - Vaclav Kotesovec, Jun 15 2025

A277103 Number of partitions of n for which the number of odd parts is equal to the positive alternating sum of the parts.

Original entry on oeis.org

1, 1, 0, 1, 3, 3, 1, 3, 10, 10, 4, 10, 27, 27, 13, 28, 69, 69, 37, 72, 161, 162, 96, 171, 361, 364, 230, 388, 768, 777, 522, 836, 1581, 1605, 1128, 1739, 3145, 3203, 2345, 3495, 6094, 6225, 4712, 6831, 11511, 11794, 9198, 13010, 21293, 21875, 17496, 24239

Offset: 0

Emeric Deutsch, Oct 18 2016

nonn

It follows by conjugation that the partition statistics "alternating sum" and "number of odd parts" are equidistributed. Consequently, the self-conjugate partitions satisfy the required condition.
In the first Maple program (improvable) AS gives the positive alternating sum of a finite sequence s, OP gives the number of odd terms of a finite sequence of positive integers.
For the specified value of n, the second Maple program lists the partitions of n counted by a(n).
Number of integer partitions of n with the same number of odd parts as their conjugate. - Gus Wiseman, Jun 27 2021

			a(3) = 1 because we have [2,1]. The partitions [3] and [1,1,1] do not qualify.
a(4) = 3 because we have [3,1], [2,2], and [2,1,1]. The partitions [4] and [1,1,1,1] do not qualify.

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

Comparing even parts to odd conjugate parts gives A277579.
Comparing product of parts to product of conjugate parts gives A325039.
The reverse version is A345196.
A000041 counts partitions of 2n with alternating sum 0, ranked by A000290.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A120452 counts partitions of 2n with rev-alt sum 2 (negative: A344741).
A124754 gives alternating sums of standard compositions (reverse: A344618).
A316524 is the alternating sum of the prime indices of n (reverse: A344616).
A344610 counts partitions by sum and positive reverse-alternating sum.
A344611 counts partitions of 2n with reverse-alternating sum >= 0.
Cf. A000070, A000097, A000700, A006330, A027187, A027193, A236559, A257991, A325534, A325535, A344607, A344651.

with(combinat): AS := proc (s) options operator, arrow: abs(add((-1)^(i-1)*s[i], i = 1 .. nops(s))) end proc: OP := proc (s) local ct, j: ct := 0: for j to nops(s) do if `mod`(s[j], 2) = 1 then ct := ct+1 else  end if end do: ct end proc: a := proc (n) local P, c, k: P := partition(n): c := 0: for k to nops(P) do if AS(P[k]) = OP(P[k]) then c := c+1 else end if end do: c end proc: seq(a(n), n = 0 .. 50);
n := 8: with(combinat): AS := proc (s) options operator, arrow: abs(add((-1)^(i-1)*s[i], i = 1 .. nops(s))) end proc: OP := proc (s) local ct, j: ct := 0: for j to nops(s) do if `mod`(s[j], 2) = 1 then ct := ct+1 else  end if end do: ct end proc: P := partition(n): C := {}: for k to nops(P) do if AS(P[k]) = OP(P[k]) then C := `union`(C, {P[k]}) else  end if end do: C;
# alternative Maple program:
b:= proc(n, i, s, t) option remember; `if`(n=0,
      `if`(s=0, 1, 0), `if`(i<1, 0, b(n, i-1, s, t)+
      `if`(i>n, 0, b(n-i, i, s+t*i-irem(i, 2), -t))))
    end:
a:= n-> b(n$2, 0, 1):
seq(a(n), n=0..60);  # Alois P. Heinz, Oct 19 2016

b[n_, i_, s_, t_] := b[n, i, s, t] = If[n == 0, If[s == 0, 1, 0], If[i<1, 0, b[n, i-1, s, t] + If[i>n, 0, b[n-i, i, s + t*i - Mod[i, 2], -t]]]]; a[n_] := b[n, n, 0, 1]; Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Dec 21 2016, after Alois P. Heinz *)
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]]; Table[Length[Select[IntegerPartitions[n],Count[#,?OddQ]==Count[conj[#],?OddQ]&]],{n,0,15}] (* Gus Wiseman, Jun 27 2021 *)

A349157 Heinz numbers of integer partitions where the number of even parts is equal to the number of odd conjugate parts.

Original entry on oeis.org

1, 4, 6, 15, 16, 21, 24, 25, 35, 60, 64, 77, 84, 90, 91, 96, 100, 121, 126, 140, 143, 150, 210, 221, 240, 247, 256, 289, 297, 308, 323, 336, 351, 360, 364, 375, 384, 400, 437, 462, 484, 490, 495, 504, 525, 529, 546, 551, 560, 572, 585, 600, 625, 667, 686, 726

Offset: 1

Gus Wiseman, Jan 21 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are numbers with the same number of even prime indices as odd conjugate prime indices.

These are also partitions for which the number of even parts is equal to the positive alternating sum of the parts.

			The terms and their prime indices begin:
    1: ()
    4: (1,1)
    6: (2,1)
   15: (3,2)
   16: (1,1,1,1)
   21: (4,2)
   24: (2,1,1,1)
   25: (3,3)
   35: (4,3)
   60: (3,2,1,1)
   64: (1,1,1,1,1,1)
   77: (5,4)
   84: (4,2,1,1)
   90: (3,2,2,1)
   91: (6,4)
   96: (2,1,1,1,1,1)

A subset of A028260 (even bigomega), counted by A027187.
These partitions are counted by A277579.
This is the half-conjugate version of A325698, counted by A045931.
A000041 counts partitions, strict A000009.
A047993 counts balanced partitions, ranked by A106529.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A100824 counts partitions with at most one odd part, ranked by A349150.
A108950/A108949 count partitions with more odd/even parts.
A122111 represents conjugation using Heinz numbers.
A130780/A171966 count partitions with more or equal odd/even parts.
A257991/A257992 count odd/even prime indices.
A316524 gives the alternating sum of prime indices (reverse: A344616).
Cf. A000700, A000712, A035363, A066207, A066208, A097613, A215366, A239241, A240009, A241638, A316523, A325700, A340604.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],Count[primeMS[#],?EvenQ]==Count[conj[primeMS[#]],?OddQ]&]

A257992(a(n)) = A257991(A122111(a(n))).

A350847 Number of even parts in the conjugate of the integer partition with Heinz number n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 14 2022

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so a(n) counts even prime indices of n.

Positions of first appearances are A001248.
The triangular version is A116482.
Positions of zeros are A346635.
Subtracting from the number of odd conjugate parts gives A350941.
Subtracting from the number of odd parts gives A350942.
Subtracting from the number of even parts gives A350950.
There are four statistics:
- A257991 = # of odd parts, conjugate A344616.
- A257992 = # of even parts, conjugate A350847 (this sequence).
There are six possible pairings of statistics:
- A325698: # of even parts = # of odd parts, counted by A045931.
- A349157: # of even parts = # of odd conjugate parts, counted by A277579.
- A350848: # of even conj parts = # of odd conj parts, counted by A045931.
- A350943: # of even conjugate parts = # of odd parts, counted by A277579.
- A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
- A350945: # of even parts = # of even conjugate parts, counted by A350948.
There are three possible double-pairings of statistics:
- A350946, counted by A351977.
- A350949, counted by A351976.
- A351980, counted by A351981.
The case of all four statistics equal is A350947, counted by A351978.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 represents partition conjugation using Heinz numbers.
Cf. A028260, A130780, A171966, A195017, A236559, A239241, A241638, A316524, A325700, A350849, A350951.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Count[conj[primeMS[n]],_?EvenQ],{n,100}]

a(n) = A344616(n) - A350941(n).

a(n) = A257992(A122111(n)).

A350848 Heinz numbers of integer partitions for which the number of even conjugate parts is equal to the number of odd conjugate parts.

Original entry on oeis.org

1, 6, 18, 21, 24, 54, 65, 70, 72, 84, 96, 133, 147, 162, 182, 189, 210, 216, 260, 280, 288, 319, 336, 384, 418, 429, 481, 486, 490, 525, 532, 546, 585, 588, 630, 648, 728, 731, 741, 754, 756, 840, 845, 864, 1007, 1029, 1040, 1120, 1152, 1197, 1254, 1258, 1276

Offset: 1

Gus Wiseman, Jan 27 2022

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.

			The terms together with their prime indices begin:
   1: ()
   6: (2,1)
  18: (2,2,1)
  21: (4,2)
  24: (2,1,1,1)
  54: (2,2,2,1)
  65: (6,3)
  70: (4,3,1)
  72: (2,2,1,1,1)
  84: (4,2,1,1)
  96: (2,1,1,1,1,1)

These partitions are counted by A045931.
The conjugate strict version is counted by A239241.
The conjugate version is A325698.
These are the positions of 0's in A350941.
Adding the conjugate condition gives A350946, all four equal A350947.
A257991 counts odd parts, conjugate A344616.
A257992 counts even parts, conjugate A350847.
A325698: # of even parts = # of odd parts.
A349157: # of even parts = # of odd conjugate parts, counted by A277579.
A350848: # even conjugate parts = # odd conjugate parts, counted by A045931.
A350943: # of even conjugate parts = # of odd parts, counted by A277579.
A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
A350945: # of even parts = # of even conjugate parts, counted by A350948.
A000041 = integer partitions, strict A000009.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A316524 = alternating sum of prime indices, reverse A344616.
Cf. A024619, A026424, A028260, A103919, A130780, A171966, A195017, A241638, A325700, A350849, A350942, A350949.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],Count[conj[primeMS[#]],?EvenQ]==Count[conj[primeMS[#]],?OddQ]&]

A344616(a(n)) = A350847(a(n)).

A257991(A122111(a(n))) = A257992(A122111(a(n))).

A350945 Heinz numbers of integer partitions of which the number of even parts is equal to the number of even conjugate parts.

Original entry on oeis.org

1, 2, 5, 6, 8, 9, 11, 14, 17, 20, 21, 23, 24, 26, 30, 31, 32, 36, 38, 39, 41, 44, 47, 56, 57, 58, 59, 66, 67, 68, 73, 74, 75, 80, 83, 84, 86, 87, 92, 96, 97, 102, 103, 104, 106, 109, 111, 120, 122, 124, 125, 127, 128, 129, 137, 138, 142, 144, 149, 152, 156

Offset: 1

Gus Wiseman, Jan 28 2022

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.

			The terms together with their prime indices begin:
   1: ()
   2: (1)
   5: (3)
   6: (2,1)
   8: (1,1,1)
   9: (2,2)
  11: (5)
  14: (4,1)
  17: (7)
  20: (3,1,1)
  21: (4,2)
  23: (9)
  24: (2,1,1,1)

These partitions are counted by A350948.
These are the positions of 0's in A350950.
A000041 = integer partitions, strict A000009.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 = conjugation using Heinz numbers.
A257991 = # of odd parts, conjugate A344616.
A257992 = # of even parts, conjugate A350847.
A316524 = alternating sum of prime indices.
The following rank partitions:
  A325040: product = product of conjugate, counted by A325039.
  A325698: # of even parts = # of odd parts, counted by A045931.
  A349157: # of even parts = # of odd conjugate parts, counted by A277579.
  A350848: # of even conj parts = # of odd conj parts, counted by A045931.
  A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
  A350945: # of even parts = # of even conjugate parts, counted by A350948.
Cf. A000070, A000290, A027187, A027193, A103919, A236559, A344607, A344651, A345196, `A350942, A350950, A350951.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],Count[conj[primeMS[#]],?EvenQ]==Count[primeMS[#],?EvenQ]&]

A257992(a(n)) = A350847(a(n)).

A350944 Heinz numbers of integer partitions of which the number of odd parts is equal to the number of odd conjugate parts.

Original entry on oeis.org

1, 2, 6, 9, 10, 12, 15, 18, 20, 30, 35, 49, 54, 55, 56, 70, 75, 77, 81, 84, 88, 90, 98, 108, 110, 112, 125, 132, 135, 143, 154, 162, 168, 169, 176, 180, 187, 210, 221, 260, 264, 270, 286, 294, 315, 323, 330, 338, 340, 350, 361, 363, 364, 374, 391, 416, 420

Offset: 1

Gus Wiseman, Jan 28 2022

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.

			The terms together with their prime indices begin:
   1: ()
   2: (1)
   6: (2,1)
   9: (2,2)
  10: (3,1)
  12: (2,1,1)
  15: (3,2)
  18: (2,2,1)
  20: (3,1,1)
  30: (3,2,1)
  35: (4,3)
  49: (4,4)
  54: (2,2,2,1)

These partitions are counted by A277103.
The even rank case is A345196.
The conjugate version is A350943, counted by A277579.
These are the positions of 0's in A350951, even A350950.
A000041 = integer partitions, strict A000009.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 = conjugation using Heinz numbers.
A257991 = # of odd parts, conjugate A344616.
A257992 = # of even parts, conjugate A350847.
A316524 = alternating sum of prime indices.
The following rank partitions:
  A325040: product = product of conjugate, counted by A325039.
  A325698: # of even parts = # of odd parts, counted by A045931.
  A349157: # of even parts = # of odd conjugate parts, counted by A277579.
  A350848: # even conj parts = # odd conj parts, counted by A045931.
  A350945: # of even parts = # of even conjugate parts, counted by A350948.
Cf. A000070, A000700, A027187, A027193, A103919, A236559, A350942.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],Count[conj[primeMS[#]],?OddQ]==Count[primeMS[#],?OddQ]&]

A257991(a(n)) = A344616(a(n)).

A350948 Number of integer partitions of n with as many even parts as even conjugate parts.

Original entry on oeis.org

1, 1, 0, 3, 1, 5, 3, 7, 6, 10, 10, 18, 19, 27, 31, 40, 47, 65, 75, 98, 115, 142, 170, 217, 257, 316, 376, 458, 544, 671, 792, 952, 1129, 1351, 1598, 1919, 2259, 2681, 3155, 3739, 4384, 5181, 6064, 7129, 8331, 9764, 11380, 13308, 15477, 18047, 20944

Offset: 0

Gus Wiseman, Mar 14 2022

nonn

			The a(0) = 1 through a(8) = 6 partitions (empty column indicated by dot):
  ()  (1)  .  (3)    (22)  (5)      (42)    (7)        (62)
              (21)         (41)     (321)   (61)       (332)
              (111)        (311)    (2211)  (511)      (521)
                           (2111)           (4111)     (4211)
                           (11111)          (31111)    (32111)
                                            (211111)   (221111)
                                            (1111111)
For example, both (3,2,1,1,1) and its conjugate (5,2,1) have exactly 1 even part, so are counted under a(8).

Comparing even to odd parts gives A045931, ranked by A325698.
The odd version is A277103, even rank case A345196, ranked by A350944.
Comparing even to odd conjugate parts gives A277579, ranked by A349157.
Comparing product of parts to product of conjugate parts gives A325039.
These partitions are ranked by A350945, the zeros of A350950.
A000041 counts integer partitions, strict A000009.
A103919 counts partitions by sum and alternating sum, reverse A344612.
A116482 counts partitions by number of even (or even conjugate) parts.
A122111 represents partition conjugation using Heinz numbers.
A257991 counts odd parts, conjugate A344616.
A257992 counts even parts, conjugate A350847.
A351976: # even = # even conj, # odd = # odd conj, ranked by A350949.
A351977: # even = # odd, # even conj = # odd conj, ranked by A350946.
A351978: # even = # odd = # even conj = # odd conj, ranked by A350947.
A351981: # even = # odd conj, # odd = # even conj, ranked by A351980.
Cf. A027187, A130780, A171966, A195017, A239241, A241638, A344607, A344651, A350848, A350941, A350942, A350943.

conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Select[IntegerPartitions[n],Count[#,?EvenQ]==Count[conj[#],?EvenQ]&]],{n,0,30}]

A350943 Heinz numbers of integer partitions of which the number of even conjugate parts is equal to the number of odd parts.

Original entry on oeis.org

1, 3, 6, 7, 13, 14, 18, 19, 26, 27, 29, 36, 37, 38, 42, 43, 53, 54, 58, 61, 63, 70, 71, 74, 78, 79, 84, 86, 89, 101, 105, 106, 107, 113, 114, 117, 122, 126, 130, 131, 139, 140, 142, 151, 156, 158, 162, 163, 171, 173, 174, 178, 181, 190, 193, 195, 199, 202, 210

Offset: 1

Gus Wiseman, Jan 28 2022

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.

			The terms together with their prime indices begin:
   1: ()
   3: (2)
   6: (2,1)
   7: (4)
  13: (6)
  14: (4,1)
  18: (2,2,1)
  19: (8)
  26: (6,1)
  27: (2,2,2)
  29: (10)
  36: (2,2,1,1)
  37: (12)
  38: (8,1)
  42: (4,2,1)
For example, the partition (6,3,2) has conjugate (3,3,2,1,1,1) and 1 = 1 so 195 is in the sequence.

These partitions are counted by A277579.
The conjugate version is A349157, also counted by A277579.
These are the positions of 0's in A350942.
A000041 = integer partitions, strict A000009.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 = conjugation using Heinz numbers.
A257991 = # of odd parts, conjugate A344616.
A257992 = # of even parts, conjugate A350847.
A316524 = alternating sum of prime indices.
The following rank partitions:
  A325040: product = product of conjugate, counted by A325039.
  A325698: # of even parts = # of odd parts, counted by A045931.
  A350848: # of even conj parts = # of odd conj parts, counted by A045931.
  A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
  A350945: # of even parts = # of even conjugate parts, counted by A350948.
Cf. A000070, A000290, A027187, A027193, A103919, A236559, A344607, A344651, A345196, A350950, A350951.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Select[Range[100],Count[primeMS[#],?OddQ]==Count[conj[primeMS[#]],?EvenQ]&]

A350847(a(n)) = A257991(a(n)).

A350942 Number of odd parts minus number of even conjugate parts of the integer partition with Heinz number n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jan 28 2022

sign

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.

			First positions n such that a(n) = 6, 5, 4, 3, 2, 1, 0, -1, -2, -3, -4, -5, -6, together with their prime indices, are:
  192: (2,1,1,1,1,1,1)
   32: (1,1,1,1,1)
   48: (2,1,1,1,1)
    8: (1,1,1)
   12: (2,1,1)
    2: (1)
    1: ()
   15: (3,2)
    9: (2,2)
   77: (5,4)
   49: (4,4)
  221: (7,6)
  169: (6,6)

The conjugate version is A350849.
This is a hybrid of A195017 and A350941.
Positions of 0's are A350943.
A000041 = integer partitions, strict A000009.
A056239 adds up prime indices, counted by A001222, row sums of A112798.
A122111 represents conjugation using Heinz numbers.
A257991 = # of odd parts, conjugate A344616.
A257992 = # of even parts, conjugate A350847.
A316524 = alternating sum of prime indices.
The following rank partitions:
  A325698: # of even parts = # of odd parts.
  A349157: # of even parts = # of odd conjugate parts, counted by A277579.
  A350848: # even conj parts = # odd conj parts, counted by A045931.
  A350943: # of even conjugate parts = # of odd parts, counted by A277579.
  A350944: # of odd parts = # of odd conjugate parts, counted by A277103.
  A350945: # of even parts = # of even conjugate parts, counted by A350948.
Cf. A026424, A028260, A130780, A171966, A239241, A241638, A325700, A350947, A350949, A350950, A350951.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Count[primeMS[n],?OddQ]-Count[conj[primeMS[n]],?EvenQ],{n,100}]

cp's OEIS Frontend

A045931 Number of partitions of n with equal number of even and odd parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A277103 Number of partitions of n for which the number of odd parts is equal to the positive alternating sum of the parts.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A349157 Heinz numbers of integer partitions where the number of even parts is equal to the number of odd conjugate parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A350847 Number of even parts in the conjugate of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula

A350848 Heinz numbers of integer partitions for which the number of even conjugate parts is equal to the number of odd conjugate parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A350945 Heinz numbers of integer partitions of which the number of even parts is equal to the number of even conjugate parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A350944 Heinz numbers of integer partitions of which the number of odd parts is equal to the number of odd conjugate parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A350948 Number of integer partitions of n with as many even parts as even conjugate parts.

Views

Author

Keywords

Examples

Crossrefs

Programs