A371781 -id:A371781 - cp's OEIS frontend

A371840 Number of integer partitions of n with non-biquanimous multiplicities.

0, 1, 2, 2, 4, 5, 8, 11, 16, 21, 31, 40, 55, 72, 97, 124, 165, 209, 271, 343, 441, 547, 700, 866, 1089, 1345, 1679, 2050, 2546, 3099, 3814, 4622, 5654, 6811, 8297, 9957, 12039, 14409, 17355, 20666, 24793, 29432, 35133, 41598, 49474, 58360, 69197, 81395, 96124

Offset: 0

Gus Wiseman, Apr 18 2024

nonn

A finite multiset of numbers is defined to be biquanimous iff it can be partitioned into two multisets with equal sums. Biquanimous partitions are counted by A002219 and ranked by A357976.

			The partition y = (6,2,1,1) has multiplicities (1,1,2), which are biquanimous because we have the partition ((1,1),(2)), so y is not counted under a(10).
The a(1) = 1 through a(8) = 16 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (221)    (33)      (322)      (44)
                    (211)   (311)    (222)     (331)      (332)
                    (1111)  (2111)   (321)     (421)      (422)
                            (11111)  (411)     (511)      (431)
                                     (3111)    (2221)     (521)
                                     (21111)   (4111)     (611)
                                     (111111)  (22111)    (2222)
                                               (31111)    (5111)
                                               (211111)   (22211)
                                               (1111111)  (32111)
                                                          (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)

The complement for parts is counted by A002219 aerated, ranks A357976.
These partitions have Heinz numbers A371782.
For parts we have A371795, ranks A371731, bisections A006827, A058695.
The complement is counted by A371839, ranks A371781.
A237258 = biquanimous strict partitions, ranks A357854, complement A371794.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A371783 counts k-quanimous partitions.
A371791 counts biquanimous sets, differences A232466.
A371792 counts non-biquanimous sets, differences A371793.
Cf. A035470, A064914, A305551, A321142, A365543, A365925, A367094.

biqQ[y_]:=MemberQ[Total/@Subsets[y],Total[y]/2];
Table[Length[Select[IntegerPartitions[n], !biqQ[Length/@Split[#]]&]],{n,0,30}]

A371955 Numbers with triquanimous prime indices.

Original entry on oeis.org

8, 27, 36, 48, 64, 125, 150, 180, 200, 216, 240, 288, 320, 343, 384, 441, 490, 512, 567, 588, 630, 700, 729, 756, 784, 810, 840, 900, 972, 1000, 1008, 1080, 1120, 1200, 1296, 1331, 1344, 1440, 1600, 1694, 1728, 1792, 1815, 1920, 2156, 2178, 2197, 2304, 2310

Offset: 1

Gus Wiseman, Apr 19 2024

nonn

A finite multiset of numbers is defined to be triquanimous iff it can be partitioned into three multisets with equal sums.

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.

			The terms together with their prime indices begin:
     8: {1,1,1}
    27: {2,2,2}
    36: {1,1,2,2}
    48: {1,1,1,1,2}
    64: {1,1,1,1,1,1}
   125: {3,3,3}
   150: {1,2,3,3}
   180: {1,1,2,2,3}
   200: {1,1,1,3,3}
   216: {1,1,1,2,2,2}
   240: {1,1,1,1,2,3}
   288: {1,1,1,1,1,2,2}
   320: {1,1,1,1,1,1,3}
   343: {4,4,4}
   384: {1,1,1,1,1,1,1,2}
   441: {2,2,4,4}
   490: {1,3,4,4}
   512: {1,1,1,1,1,1,1,1,1}
   567: {2,2,2,2,4}
   588: {1,1,2,4,4}

Robert Israel, Table of n, a(n) for n = 1..500

These are the Heinz numbers of the partitions counted by A002220.
For biquanimous we have A357976, counted by A002219.
For non-biquanimous we have A371731, counted by A371795, even case A006827.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A237258 (aerated) counts biquanimous strict partitions, ranks A357854.
A371783 counts k-quanimous partitions.
Cf. A000005, A002221, A035470, A064914, A232466, A299701, A321142, A321454, A321455, A326534, A357879, A371781.

tripart:= proc(L) local t,X,Y,n,cons,i,R;
  t:= convert(L,`+`)/3;
  n:= nops(L);
  if not t::integer then return false fi;
  cons:= [add(L[i]*X[i],i=1..n)=t,
          add(L[i]*Y[i],i=1..n)=t,
          seq(X[i] + Y[i] <= 1, i=1..n)];
  R:= traperror(Optimization:-Maximize(0, cons, assume=binary));
  R::list
end proc:
primeindices:= proc(n) local F,t;
  F:= ifactors(n)[2];
  map(t -> numtheory:-pi(t[1])$t[2], F)
end proc:
select(tripart @ primindices, [$2..3000]); # Robert Israel, May 19 2025

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&, Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[1000],Select[facs[#], Length[#]==3&&SameQ@@hwt/@#&]!={}&]

A371956 Number of non-biquanimous compositions of 2n.

Original entry on oeis.org

0, 1, 3, 9, 23, 63, 146, 364

Offset: 0

Gus Wiseman, Apr 20 2024

A finite multiset of numbers is defined to be biquanimous iff it can be partitioned into two multisets with equal sums. Biquanimous partitions are counted by A002219 and ranked by A357976.

			The a(1) = 1 through a(3) = 9 compositions:
  (2)  (4)    (6)
       (1,3)  (1,5)
       (3,1)  (2,4)
              (4,2)
              (5,1)
              (1,1,4)
              (1,4,1)
              (2,2,2)
              (4,1,1)

The unordered complement is A002219, ranks A357976.
The unordered version is A006827, even case of A371795, ranks A371731.
The complement is counted by A064914.
These compositions have ranks A372119, complement A372120.
A237258 (aerated) counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A371791 counts biquanimous sets, differences A232466.
A371792 counts non-biquanimous sets, differences A371793.
Cf. A027187, A035470, A357879, A367094, A371781, A371782, A371783.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[2n], !MemberQ[Total/@Subsets[#],n]&]],{n,0,5}]

A372119 Numbers k such that the k-th composition in standard order is not biquanimous.

Original entry on oeis.org

1, 2, 4, 5, 6, 7, 8, 9, 12, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 40, 42, 48, 49, 56, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96

Offset: 1

Gus Wiseman, Apr 20 2024

nonn

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

A finite multiset of numbers is defined to be biquanimous iff it can be partitioned into two multisets with equal sums. Biquanimous partitions are counted by A002219 and ranked by A357976.

			The terms and corresponding compositions begin:
   1: (1)
   2: (2)
   4: (3)
   5: (2,1)
   6: (1,2)
   7: (1,1,1)
   8: (4)
   9: (3,1)
  12: (1,3)
  16: (5)
  17: (4,1)
  18: (3,2)
  19: (3,1,1)
  20: (2,3)
  21: (2,2,1)
  22: (2,1,2)
  23: (2,1,1,1)

The unordered complement is A357976, counted by A002219.
The unordered version is A371731, counted by A371795, even case A006827.
These compositions are counted by A371956.
The complement is A372120, counted by A064914.
A237258 (aerated) counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A371791 counts biquanimous sets, differences A232466.
A371792 counts non-biquanimous sets, differences A371793.
Cf. A027187, A035470, A357879, A367094, A371781, A371782, A371783.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],!MemberQ[Total/@Subsets[stc[#]], Total[stc[#]]/2]&]

A372120 Numbers k such that the k-th composition in standard order is biquanimous.

Original entry on oeis.org

0, 3, 10, 11, 13, 14, 15, 36, 37, 38, 39, 41, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 136, 137, 138, 139, 140, 141, 142, 143, 145, 147, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 162, 163, 165, 166, 167, 168, 169

Offset: 1

Gus Wiseman, Apr 20 2024

nonn

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

A finite multiset of numbers is defined to be biquanimous iff it can be partitioned into two multisets with equal sums. Biquanimous partitions are counted by A002219 and ranked by A357976.

			The terms and corresponding compositions begin:
   0: ()
   3: (1,1)
  10: (2,2)
  11: (2,1,1)
  13: (1,2,1)
  14: (1,1,2)
  15: (1,1,1,1)
  36: (3,3)
  37: (3,2,1)
  38: (3,1,2)
  39: (3,1,1,1)
  41: (2,3,1)
  43: (2,2,1,1)
  44: (2,1,3)
  45: (2,1,2,1)
  46: (2,1,1,2)
  47: (2,1,1,1,1)
  50: (1,3,2)
  51: (1,3,1,1)
  52: (1,2,3)
  53: (1,2,2,1)
  54: (1,2,1,2)

These compositions are counted by A064914.
The unordered version (integer partitions) is A357976, counted by A002219.
The unordered complement is A371731, counted by A371795, even case A006827.
The complement is A372119, counted by A371956.
A237258 (aerated) counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A371791 counts biquanimous sets, differences A232466.
A371792 counts non-biquanimous sets, differences A371793.
Cf. A027187, A035470, A357879, A367094, A371781, A371782, A371783.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],MemberQ[Total/@Subsets[stc[#]], Total[stc[#]]/2]&]

A372122 Number of strict triquanimous partitions of 3n.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 4, 5, 13, 18, 36, 51, 93, 132, 229, 315, 516, 735, 1134, 1575, 2407, 3309, 4878, 6710, 9690, 13168, 18744, 25114, 35050, 47210, 64503, 85573, 116445, 153328, 205367, 269383, 356668, 464268, 610644, 788274, 1026330, 1321017, 1704309, 2176054

Offset: 0

Gus Wiseman, Apr 20 2024

nonn

A finite multiset of numbers is defined to be triquanimous iff it can be partitioned into three multisets with equal sums. Triquanimous partitions are counted by A002220 and ranked by A371955.

			The partition (11,7,5,4,3,2,1) has qualifying set partitions {{11},{4,7},{1,2,3,5}} and {{11},{1,3,7},{2,4,5}} so is counted under a(11).
The a(5) = 1 through a(9) = 13 partitions:
  (5,4,3,2,1)  (6,5,4,2,1)  (7,5,4,3,2)    (8,6,5,3,2)    (9,6,5,4,3)
                            (7,6,4,3,1)    (8,7,5,3,1)    (9,7,5,4,2)
                            (7,6,5,2,1)    (8,7,6,2,1)    (9,7,6,3,2)
                            (6,5,4,3,2,1)  (7,6,5,3,2,1)  (9,8,5,4,1)
                                           (8,6,4,3,2,1)  (9,8,6,3,1)
                                                          (9,8,7,2,1)
                                                          (7,6,5,4,3,2)
                                                          (8,6,5,4,3,1)
                                                          (8,7,5,4,2,1)
                                                          (8,7,6,3,2,1)
                                                          (9,6,5,4,2,1)
                                                          (9,7,5,3,2,1)
                                                          (9,8,4,3,2,1)

The non-strict biquanimous version is A002219, ranks A357976.
The non-strict version is A002220, ranks A371955.
The biquanimous version is A237258, ranks A357854.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454, strict A371737.
A371783 counts k-quanimous partitions.
A371795 counts non-biquanimous partitions, even case A006827, ranks A371731.
Cf. A035470, A064914, A321142, A321455, A371781, A371796.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&, Select[facs[n/d],Min@@#>=d&]], {d,Rest[Divisors[n]]}]];
Table[Length[Select[IntegerPartitions[3n], UnsameQ@@#&&Select[facs[Times@@Prime/@#], Length[#]==3&&SameQ@@hwt/@#&]!={}&]],{n,0,10}]

More terms from Jinyuan Wang, Mar 30 2025

cp's OEIS Frontend

A371840 Number of integer partitions of n with non-biquanimous multiplicities.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371955 Numbers with triquanimous prime indices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A371956 Number of non-biquanimous compositions of 2n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A372119 Numbers k such that the k-th composition in standard order is not biquanimous.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A372120 Numbers k such that the k-th composition in standard order is biquanimous.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A372122 Number of strict triquanimous partitions of 3n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions