A371782 -id:A371782 - cp's OEIS frontend

A006827 Number of partitions of 2n with all subsums different from n.

1, 2, 5, 8, 17, 24, 46, 64, 107, 147, 242, 302, 488, 629, 922, 1172, 1745, 2108, 3104, 3737, 5232, 6419, 8988, 10390, 14552, 17292, 23160, 27206, 36975, 41945, 57058, 65291, 85895, 99384, 130443, 145283, 193554, 218947, 281860, 316326, 413322, 454229, 594048

Offset: 1

N. J. A. Sloane

Partitions of this type are also called non-biquanimous partitions. - Gus Wiseman, Apr 19 2024

			From _Gus Wiseman_, Apr 19 2024: (Start)
The a(1) = 1 through a(5) = 17 partitions (A = 10):
  (2)  (4)   (6)    (8)     (A)
       (31)  (42)   (53)    (64)
             (51)   (62)    (73)
             (222)  (71)    (82)
             (411)  (332)   (91)
                    (521)   (433)
                    (611)   (442)
                    (5111)  (622)
                            (631)
                            (721)
                            (811)
                            (3331)
                            (4222)
                            (6211)
                            (7111)
                            (22222)
                            (61111)
(End)

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Fausto A. C. Cariboni, Table of n, a(n) for n = 1..140 (terms 1..89 from Alois P. Heinz)
P. Erdős, J. L. Nicolas and A. Sárközy, On the number of partitions of n without a given subsum (I), Discrete Math., 75 (1989), 155-166 = Annals Discrete Math. Vol. 43, Graph Theory and Combinatorics 1988, ed. B. Bollobas.

The complement is counted by A002219, ranks A357976.
Central diagonal of A046663.
The strict case is A321142, even bisection of A371794 (odd A078408).
This is the "bi-" version of A321451, ranks A321453.
Column k = 0 of A367094.
These partitions have Heinz numbers A371731.
Even bisection of A371795 (odd A058695).
A371783 counts k-quanimous partitions.
Cf. A035470, A064914, A237258, A305551, A321452, A365543, A365663, A366320, A371736, A371782, A371792.

b:= proc(n, i, s) option remember;
      `if`(0 in s or n in s, 0, `if`(n=0, 1, `if`(i<1, 0, b(n, i-1, s)+
      `if`(i<=n, b(n-i, i, select(y-> 0<=y and y<=n-i,
                 map(x-> [x, x-i][], s))), 0))))
    end:
a:= n-> b(2*n, 2*n, {n}):
seq(a(n), n=1..25);  # Alois P. Heinz, Jul 10 2012

b[n_, i_, s_] := b[n, i, s] = If[MemberQ[s, 0 | n], 0, If[n == 0, 1, If[i < 1, 0, b[n, i-1, s] + If[i <= n, b[n-i, i, Select[Flatten[Transpose[{s, s-i}]], 0 <= # <= n-i &]], 0]]]]; a[n_] := b[2*n, 2*n, {n}]; Table[Print[an = a[n]]; an, {n, 1, 25}] (* Jean-François Alcover, Nov 12 2013, after Alois P. Heinz *)

from itertools import combinations_with_replacement
from collections import Counter
from sympy import npartitions
from sympy.utilities.iterables import partitions
def A006827(n): return npartitions(n<<1)-len({tuple(sorted((p+q).items())) for p, q in combinations_with_replacement(tuple(Counter(p) for p in partitions(n)),2)}) # Chai Wah Wu, Sep 20 2023

a(n) = A000041(2*n) - A002219(n).

a(n) = A046663(2*n,n).

More terms from Don Reble, Nov 03 2001

More terms from Alois P. Heinz, Jul 10 2012

A064914 Number of ordered biquanimous partitions of 2n.

Original entry on oeis.org

1, 1, 5, 23, 105, 449, 1902, 7828, 31976, 129200, 520425, 2088217, 8371186, 33514797, 134140430, 536699674, 2147154667, 8589198795, 34358341823, 137435830265, 549749857574, 2199010044813, 8796067657649, 35184315676573, 140737380485376, 562949713881526

Offset: 0

Christian G. Bower, Oct 12 2001

nonn

A biquanimous partition is one that can be bisected into two equal sized parts: e.g. 3+2+1 is a biquanimous partition of 6 as it contains 3 and 2+1, but 5+1 is not.

			From _Gus Wiseman_, Apr 19 2024: (Start)
The a(0) = 1 through a(3) = 23 biquanimous compositions:
  ()  (11)  (22)    (33)
            (112)   (123)
            (121)   (132)
            (211)   (213)
            (1111)  (231)
                    (312)
                    (321)
                    (1113)
                    (1122)
                    (1131)
                    (1212)
                    (1221)
                    (1311)
                    (2112)
                    (2121)
                    (2211)
                    (3111)
                    (11112)
                    (11121)
                    (11211)
                    (12111)
                    (21111)
                    (111111)
(End)

The unordered version (integer partitions) is A002219, ranks A357976.
The unordered complement is A371795, even case A006827, ranks A371731.
The complement is counted by A371956.
These compositions have ranks A372120, complement A372119.
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}] (* Gus Wiseman, Apr 19 2024 *)

More terms from Alois P. Heinz, Jun 12 2017

A371783 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n that can be partitioned into d = A027750(n,k) blocks with equal sums.

Original entry on oeis.org

1, 2, 1, 3, 1, 5, 3, 1, 7, 1, 11, 6, 4, 1, 15, 1, 22, 14, 5, 1, 30, 10, 1, 42, 25, 6, 1, 56, 1, 77, 53, 30, 15, 7, 1, 101, 1, 135, 89, 8, 1, 176, 65, 21, 1, 231, 167, 55, 9, 1, 297, 1, 385, 278, 173, 28, 10, 1, 490, 1, 627, 480, 140, 91, 11, 1, 792, 343, 36, 1

Offset: 1

Gus Wiseman, Apr 14 2024

These could be called d-quanimous partitions, cf. A002219, A064914, A321452.

			Triangle begins:
    1
    2   1
    3   1
    5   3   1
    7   1
   11   6   4   1
   15   1
   22  14   5   1
   30  10   1
   42  25   6   1
   56   1
   77  53  30  15   7   1
  101   1
  135  89   8   1
  176  65  21   1
Row n = 6 counts the following partitions:
  (6)       (33)      (222)     (111111)
  (33)      (321)     (2211)
  (42)      (2211)    (21111)
  (51)      (3111)    (111111)
  (222)     (21111)
  (321)     (111111)
  (411)
  (2211)
  (3111)
  (21111)
  (111111)

Row lengths are A000005.
Column k = 1 is A000041.
Inserting zeros gives A371954.
Row sums are A372121.
A002219 (aerated) counts biquanimous partitions, ranks A357976.
A237258 aerated counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A371736 counts non-quanimous strict partitons, complement A371737.
A371781 lists numbers with biquanimous prime signature, complement A371782.
A371789 counts non-quanimous sets, differences A371790.
A371796 counts quanimous sets, differences A371797.
Cf. A006827, A027750, A035470, A064914, A321455, A365543, A371791, A371795.

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[n], Select[facs[Times@@Prime/@#], Length[#]==k&&SameQ@@hwt/@#&]!={}&]],{n,1,8},{k,Divisors[n]}]

More terms from Jinyuan Wang, Feb 13 2025

Name edited by Peter Munn, Mar 05 2025

A371795 Number of non-biquanimous integer partitions of n.

Original entry on oeis.org

0, 1, 1, 3, 2, 7, 5, 15, 8, 30, 17, 56, 24, 101, 46, 176, 64, 297, 107, 490, 147, 792, 242, 1255, 302, 1958, 488, 3010, 629, 4565, 922, 6842, 1172, 10143, 1745, 14883, 2108, 21637, 3104, 31185, 3737, 44583, 5232, 63261, 6419, 89134, 8988, 124754, 10390, 173525

Offset: 0

Gus Wiseman, Apr 07 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 a(1) = 1 through a(8) = 8 partitions:
  (1)  (2)  (3)    (4)   (5)      (6)    (7)        (8)
            (21)   (31)  (32)     (42)   (43)       (53)
            (111)        (41)     (51)   (52)       (62)
                         (221)    (222)  (61)       (71)
                         (311)    (411)  (322)      (332)
                         (2111)          (331)      (521)
                         (11111)         (421)      (611)
                                         (511)      (5111)
                                         (2221)
                                         (3211)
                                         (4111)
                                         (22111)
                                         (31111)
                                         (211111)
                                         (1111111)

The complement is counted by A002219 aerated, ranks A357976.
Even bisection is A006827, odd A058695.
The strict complement is A237258, ranks A357854.
This is the "bi-" version of A321451, ranks A321453.
The complement is the "bi-" version of A321452, ranks A321454.
These partitions have ranks A371731.
The strict case is A371794, bisections A321142, A078408.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371736 counts non-quanimous strict partitons, complement A371737.
A371781 lists numbers with biquanimous prime signature, complement A371782.
A371783 counts k-quanimous partitions.
A371789 counts non-quanimous sets, differences A371790.
A371791 counts biquanimous sets, differences A232466.
A371792 counts non-biquanimous sets, differences A371793.
A371796 counts quanimous sets, differences A371797.
Cf. A035470, A064914, A305551, A336137, A365543, A365661, A365663, A366320, A365925, A367094, A371788.

biqQ[y_]:=MemberQ[Total/@Subsets[y],Total[y]/2];
Table[Length[Select[IntegerPartitions[n],Not@*biqQ]],{n,0,15}]

a(n) = if(n%2, numbpart(n), my(v=partitions(n/2), w=List([])); for(i=1, #v, for(j=1, i, listput(w, vecsort(concat(v[i], v[j]))))); numbpart(n)-#Set(w)); \\ Jinyuan Wang, Feb 13 2025

More terms from Jinyuan Wang, Feb 13 2025

A371791 Number of biquanimous subsets of {1..n}. Sets with a subset having the same sum as the complement.

Original entry on oeis.org

1, 1, 1, 2, 4, 8, 18, 38, 82, 175, 373, 787, 1651, 3439, 7126, 14667, 30049, 61249, 124440, 251922, 508779, 1025183, 2062287, 4142644, 8312927, 16667005, 33395275, 66880828, 133892910, 267976571, 536225921, 1072842931, 2146233971, 4293248183, 8587569636, 17176654105, 34355356676, 68713584720, 137430991937, 274867311960, 549741605972, 1099492913172, 2198998307679, 4398013970156, 8796049891377, 17592130283755, 35184298506429

Offset: 0

Gus Wiseman, Apr 07 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.

			For S = {1,3,4,6} we have {{1,6},{3,4}}, so S is counted under a(6).
The a(0) = 1 through a(6) = 18 subsets:
  {}  {}  {}  {}       {}         {}         {}
              {1,2,3}  {1,2,3}    {1,2,3}    {1,2,3}
                       {1,3,4}    {1,3,4}    {1,3,4}
                       {1,2,3,4}  {1,4,5}    {1,4,5}
                                  {2,3,5}    {1,5,6}
                                  {1,2,3,4}  {2,3,5}
                                  {1,2,4,5}  {2,4,6}
                                  {2,3,4,5}  {1,2,3,4}
                                             {1,2,3,6}
                                             {1,2,4,5}
                                             {1,2,5,6}
                                             {1,3,4,6}
                                             {2,3,4,5}
                                             {2,3,5,6}
                                             {3,4,5,6}
                                             {1,2,3,4,6}
                                             {1,2,4,5,6}
                                             {2,3,4,5,6}

First differences are A232466.
The complement is counted by A371792, differences A371793.
This is the "bi-" case of A371796, differences A371797.
A002219 aerated counts biquanimous partitions, ranks A357976.
A006827 and A371795 count non-biquanimous partitions, ranks A371731.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A237258 aerated counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371737 counts quanimous strict partitions, complement A371736.
A371781 lists numbers with biquanimous prime signature, complement A371782.
A371783 counts k-quanimous partitions.
Cf. A035470, A064914, A357879, A365661, A366320, A365381, A365925, A367094, A371788, A371789.

biqQ[y_]:=MemberQ[Total/@Subsets[y],Total[y]/2];
Table[Length[Select[Subsets[Range[n]],biqQ]],{n,0,15}]

a(16) onwards from Martin Fuller, Mar 21 2025

A371731 Heinz numbers of non-biquanimous integer partitions. Numbers without a divisor having the same sum of prime indices as the quotient.

Original entry on oeis.org

2, 3, 5, 6, 7, 8, 10, 11, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80

Offset: 1

Gus Wiseman, Apr 07 2024

nonn

These partitions are counted by A371795, even case A006827.
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.
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.
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 aerated and ranked by A357976.

			The prime indices of 975 are {2,3,3,6}, which are not biquanimous, so 975 is in the sequence.
The prime indices of 900 are {1,1,2,2,3,3}, which can be partitioned into {{1,2,3},{1,2,3}} or {{3,3},{1,1,2,2}}, so 900 is not in the sequence.

The complement is A357976, counted by A002219.
For prime signature instead of indices we have A371782, complement A371781.
Partitions of this type are counted by A371795, even case A006827.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A237258 aerated counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371737 counts quanimous strict partitions, complement A371736.
A371783 counts k-quanimous partitions.
A371789 counts non-quanimous sets, differences A371790.
A371791 counts biquanimous sets, differences A232466.
A371792 counts non-biquanimous sets, differences A371793.
A371796 counts quanimous sets, differences A371797.
Cf. A000005, A002221, A027187, A035470, A064914, A299701, A300061, A318434, A321455, A326534, A357879, A366320, A367094.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
biqQ[y_]:=MemberQ[Total/@Subsets[y],Total[y]/2];
Select[Range[100],Not@*biqQ@*prix]

Numbers n without a divisor d|n such that A056239(d) = A056239(n/d).

A371792 Number of non-biquanimous subsets of {1..n}. Sets with no subset having the same sum as the complement.

Original entry on oeis.org

0, 1, 3, 6, 12, 24, 46, 90, 174, 337, 651, 1261, 2445, 4753, 9258, 18101, 35487, 69823, 137704, 272366, 539797, 1071969, 2132017, 4245964, 8464289, 16887427, 33713589, 67336900, 134542546, 268894341, 537515903, 1074640717, 2148733325, 4296686409, 8592299548, 17183084263, 34364120060, 68725368752, 137446915007, 274888501928, 549770021804, 1099530342380, 2199048203425, 4398079052052, 8796136153039, 17592241805077, 35184445671235

Offset: 0

Gus Wiseman, Apr 07 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 subsets of S = {1,4,6,7} have distinct sums {0,1,4,5,6,7,8,10,11,12,13,14,17,18}. Since 9 is missing, S is counted under a(7).
The a(0) = 0 through a(4) = 12 subsets:
  .  {1}  {1}    {1}    {1}
          {2}    {2}    {2}
          {1,2}  {3}    {3}
                 {1,2}  {4}
                 {1,3}  {1,2}
                 {2,3}  {1,3}
                        {1,4}
                        {2,3}
                        {2,4}
                        {3,4}
                        {1,2,4}
                        {2,3,4}

This is the "bi-" version of A371789, differences A371790.
The complement is counted by A371791, differences A232466.
First differences are A371793.
The complement is the "bi-" version of A371796, differences A371797.
A002219 aerated counts biquanimous partitions, ranks A357976.
A006827 and A371795 count non-biquanimous partitions, ranks A371731.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A237258 aerated counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371737 counts quanimous strict partitions, complement A371736.
A371781 lists numbers with biquanimous prime signature, complement A371782.
A371783 counts k-quanimous partitions.
Cf. A035470, A064914, A318434, A321455, A365543, A365661, A365663, A366320, A365381, A365925, A367094, A371788.

biqQ[y_]:=MemberQ[Total/@Subsets[y],Total[y]/2];
Table[Length[Select[Subsets[Range[n]],Not@*biqQ]],{n,0,10}]

a(16) onwards from Martin Fuller, Mar 21 2025

A371794 Number of non-biquanimous strict integer partitions of n.

Original entry on oeis.org

0, 1, 1, 2, 2, 3, 3, 5, 5, 8, 7, 12, 11, 18, 15, 27, 23, 38, 30, 54, 43, 76, 57, 104, 79, 142, 102, 192, 138, 256, 174, 340, 232, 448, 292, 585, 375, 760, 471, 982, 602, 1260, 741, 1610, 935, 2048, 1148, 2590, 1425, 3264, 1733, 4097, 2137, 5120, 2571, 6378

Offset: 0

Gus Wiseman, Apr 07 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 a(1) = 1 through a(11) = 12 strict partitions:
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)    (B)
            (21)  (31)  (32)  (42)  (43)   (53)   (54)   (64)   (65)
                        (41)  (51)  (52)   (62)   (63)   (73)   (74)
                                    (61)   (71)   (72)   (82)   (83)
                                    (421)  (521)  (81)   (91)   (92)
                                                  (432)  (631)  (A1)
                                                  (531)  (721)  (542)
                                                  (621)         (632)
                                                                (641)
                                                                (731)
                                                                (821)
                                                                (5321)

The complement is counted by A237258 aerated, ranks A357854.
Even bisection is A321142, odd A078408.
This is the "bi-" version of A371736, complement A371737.
A002219 aerated counts biquanimous partitions, ranks A357976.
A006827 and A371795 count non-biquanimous partitions, ranks A371731.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371781 lists numbers with biquanimous prime signature, complement A371782.
A371783 counts k-quanimous partitions.
A371789 counts non-quanimous sets, differences A371790.
A371791 counts biquanimous sets, differences A232466.
A371792 counts non-biquanimous sets, differences A371793.
A371796 counts quanimous sets, differences A371797.
Cf. A064914, A279787, A305551, A318434, A365543, A365663, A365661, A366320, A365925, A367094, A371788.

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

A371781 Numbers with biquanimous prime signature.

Original entry on oeis.org

1, 6, 10, 14, 15, 21, 22, 26, 33, 34, 35, 36, 38, 39, 46, 51, 55, 57, 58, 60, 62, 65, 69, 74, 77, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 122, 123, 126, 129, 132, 133, 134, 140, 141, 142, 143, 145, 146, 150, 155, 156, 158, 159

Offset: 1

Gus Wiseman, Apr 09 2024

nonn

First differs from A320911 in lacking 900.
First differs from A325259 in having 1 and lacking 120.
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 (aerated) and ranked by A357976.
Also numbers n with a unitary divisor d|n having exactly half as many prime factors as n, counting multiplicity.

			The prime signature of 120 is (3,1,1), which is not biquanimous, so 120 is not in the sequence.

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

A number's prime signature is given by A124010.
For prime indices we have A357976, counted by A002219 aerated.
The complement for prime indices is A371731, counted by A371795, A006827.
The complement is A371782, counted by A371840.
Partitions of this type are counted by A371839.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A237258 aerated counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A371783 counts k-quanimous partitions.
A371791 counts biquanimous sets, complement A371792.
Cf. A035470, A064914, A232466, A299702, A336137, A371737, A371796.
Subsequence of A028260.

biquanimous:= proc(L) local s,x,i,P; option remember;
  s:= convert(L,`+`); if s::odd then return false fi;
  P:= mul(1+x^i,i=L);
  coeff(P,x,s/2) > 0
end proc:
select(n -> biquanimous(ifactors(n)[2][..,2]), [$1..200]); # Robert Israel, Apr 22 2024

g[n_]:=Select[Divisors[n],GCD[#,n/#]==1&&PrimeOmega[#]==PrimeOmega[n/#]&];
Select[Range[100],g[#]!={}&]
(* second program: *)
q[n_] := Module[{e = FactorInteger[n][[;; , 2]], sum, x}, sum = Plus @@ e; EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, e}], x][[1 + sum/2]] > 0]; q[1] = True; Select[Range[200], q] (* Amiram Eldar, Jul 24 2024 *)

A371793 Number of non-biquanimous subsets of {1..n} containing n.

Original entry on oeis.org

1, 2, 3, 6, 12, 22, 44, 84, 163, 314, 610, 1184, 2308, 4505, 8843, 17386, 34336, 67881, 134662, 267431, 532172, 1060048, 2113947, 4218325, 8423138, 16826162, 33623311, 67205646, 134351795, 268621562, 537124814, 1074092608, 2147953084, 4295613139, 8590784715, 17181035797, 34361248692, 68721546255, 137441586921, 274881519876, 549760320576, 1099517861045, 2199030848627, 4398057100987, 8796105652038, 17592203866158

Offset: 1

Gus Wiseman, Apr 07 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 a(1) = 1 through a(5) = 12 subsets:
  {1}  {2}    {3}    {4}      {5}
       {1,2}  {1,3}  {1,4}    {1,5}
              {2,3}  {2,4}    {2,5}
                     {3,4}    {3,5}
                     {1,2,4}  {4,5}
                     {2,3,4}  {1,2,5}
                              {1,3,5}
                              {2,4,5}
                              {3,4,5}
                              {1,2,3,5}
                              {1,3,4,5}
                              {1,2,3,4,5}

The complement is counted by A232466, differences of A371791.
This is the "bi-" version of A371790, differences of A371789.
First differences of A371792.
The complement is the "bi-" version of A371797, differences of A371796.
A002219 aerated counts biquanimous partitions, ranks A357976.
A006827 and A371795 count non-biquanimous partitions, ranks A371731.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A237258 aerated counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371737 counts quanimous strict partitions, complement A371736.
A371781 lists numbers with biquanimous prime signature, complement A371782.
A371783 counts k-quanimous partitions.
Cf. A035470, A064914, A365543, A365661, A365663, A366320, A365381, A367094, A371788.

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

a(16) onwards from Martin Fuller, Mar 21 2025

cp's OEIS Frontend

A006827 Number of partitions of 2n with all subsums different from n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

Extensions

A064914 Number of ordered biquanimous partitions of 2n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A371783 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n that can be partitioned into d = A027750(n,k) blocks with equal sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A371795 Number of non-biquanimous integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A371791 Number of biquanimous subsets of {1..n}. Sets with a subset having the same sum as the complement.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A371731 Heinz numbers of non-biquanimous integer partitions. Numbers without a divisor having the same sum of prime indices as the quotient.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A371792 Number of non-biquanimous subsets of {1..n}. Sets with no subset having the same sum as the complement.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A371794 Number of non-biquanimous strict integer partitions of n.

Views

Author