A064914 -id:A064914 - cp's OEIS frontend

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

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

A367094 Irregular triangle read by rows with trailing zeros removed where T(n,k) is the number of integer partitions of 2n whose number of submultisets summing to n is k.

Original entry on oeis.org

0, 1, 1, 1, 2, 2, 1, 5, 3, 3, 8, 4, 9, 1, 17, 6, 16, 1, 2, 24, 7, 33, 4, 9, 46, 11, 52, 3, 18, 1, 4, 64, 12, 91, 6, 38, 3, 15, 1, 1, 107, 17, 138, 9, 68, 2, 28, 2, 12, 0, 2, 147, 19, 219, 12, 117, 6, 56, 3, 34, 2, 9, 0, 3

Offset: 0

Gus Wiseman, Nov 07 2023

			The partition (3,2,2,1) has two submultisets summing to 4, namely {2,2} and {1,3}, so it is counted under T(4,2).
The partition (2,2,1,1,1,1) has three submultisets summing to 4, namely {1,1,1,1}, {1,1,2}, and {2,2}, so it is counted under T(4,3).
Triangle begins:
    0   1
    1   1
    2   2   1
    5   3   3
    8   4   9   1
   17   6  16   1   2
   24   7  33   4   9
   46  11  52   3  18   1   4
   64  12  91   6  38   3  15   1   1
  107  17 138   9  68   2  28   2  12   0   2
  147  19 219  12 117   6  56   3  34   2   9   0   3
Row n = 4 counts the following partitions:
  (8)     (44)        (431)      (221111)
  (71)    (3311)      (422)
  (62)    (2222)      (4211)
  (611)   (11111111)  (41111)
  (53)                (3221)
  (521)               (32111)
  (5111)              (311111)
  (332)               (22211)
                      (2111111)

Row sums w/o the first column are A002219, ranks A357976, strict A237258.
Column k = 0 is A006827.
Row sums are A058696.
Column k = 1 is A108917.
The corresponding rank statistic is A357879 (without empty rows).
A000041 counts integer partitions, strict A000009.
A182616 counts partitions of 2n that do not contain n, ranks A366321.
A182616 counts partitions of 2n with at least one odd part, ranks A366530.
A276024 counts positive subset-sums of partitions, strict A284640.
A304792 counts subset-sums of partitions, rank statistic A299701.
A365543 counts partitions of n with a submultiset summing to k.
Cf. A046663, A064914, A079122, A122768, A213074, A231429, A235130, A237194.

t=Table[Length[Select[IntegerPartitions[2n], Count[Total/@Union[Subsets[#]],n]==k&]], {n,0,5}, {k,0,1+PartitionsP[n]}];
Table[NestWhile[Most,t[[i]],Last[#]==0&], {i,Length[t]}]

T(n,1) = A108917(n).

A371782 Numbers with non-biquanimous prime signature.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 30, 31, 32, 37, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 61, 63, 64, 66, 67, 68, 70, 71, 72, 73, 75, 76, 78, 79, 80, 81, 83, 88, 89, 92, 96, 97, 98, 99, 101, 102

Offset: 1

Gus Wiseman, Apr 09 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 (aerated) and ranked by A357976.

Also numbers n without 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 in the sequence.

Amiram Eldar, Table of n, a(n) for n = 1..10000

A number's prime signature is given by A124010.
The complement for prime indices is A357976, counted by A002219 aerated.
For prime indices we have A371731, counted by A371795, even case A006827.
The complement is A371781, counted by A371839.
Partitions of this type are counted by A371840.
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.
A371792 counts non-biquanimous sets, complement A371791.
Cf. A035470, A064914, A232466, A299729, A367094, A371736, A371783, A371789.
Subsequence of A026424.

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; OddQ[sum] || CoefficientList[Product[1 + x^i, {i, e}], x][[1 + sum/2]] == 0]; q[1] = False; Select[Range[120], 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

A108796 Number of unordered pairs of partitions of n (into distinct parts) with empty intersection.

Original entry on oeis.org

1, 0, 0, 1, 1, 3, 4, 7, 9, 16, 21, 33, 46, 68, 95, 140, 187, 266, 372, 507, 683, 948, 1256, 1692, 2263, 3003, 3955, 5248, 6824, 8921, 11669, 15058, 19413, 25128, 32149, 41129, 52578, 66740, 84696, 107389, 135310, 170277, 214386, 268151, 335261, 418896, 521204

Offset: 0

Wouter Meeussen, Jul 09 2005

nonn

Counted as orderless pairs since intersection is commutative.

			Of the partitions of 12 into different parts, the partition (5+4+2+1) has an empty intersection with only (12) and (9+3).
From _Gus Wiseman_, Oct 07 2023: (Start)
The a(6) = 4 pairs are:
  ((6),(5,1))
  ((6),(4,2))
  ((6),(3,2,1))
  ((5,1),(4,2))
(End)

Vaclav Kotesovec Table of n, a(n) for n = 0..1050 (terms 0..700 from Alois P. Heinz)

Column k=2 of A258280.
Cf. A079122, A086737.
Main diagonal of A284593 times (1/2).
This is the strict case of A260669.
The ordered version is A365662 = strict case of A054440.
This is the disjoint case of A366132, with twins A366317.
A000041 counts integer partitions, strict A000009.
A002219 counts biquanimous partitions, strict A237258, ordered A064914.
Cf. A000124, A000712, A001255, A006827, A032302, A122768, A355389.

using DiscreteMath`Combinatorica`and ListPartitionsQ[n_Integer]:= Flatten[ Reverse /@ Table[(Range[m-1, 0, -1]+#1&)/@ TransposePartition/@ Complement[Partitions[ n-m* (m-1)/2, m], Partitions[n-m*(m-1)/2, m-1]], {m, -1+Floor[1/2*(1+Sqrt[1+8*n])]}], 1]; Table[Plus@@Flatten[Outer[If[Intersection[Flatten[ #1], Flatten[ #2]]==={}, 1, 0]&, ListPartitionsQ[k], ListPartitionsQ[k], 1]], {k, 48}]/2
nmax = 50; p = 1; Do[p = Expand[p*(1 + x^j + y^j)]; p = Select[p, (Exponent[#, x] <= nmax) && (Exponent[#, y] <= nmax) &], {j, 1, nmax}]; p = Select[p, Exponent[#, x] == Exponent[#, y] &]; Table[Coefficient[p, x^n*y^n]/2, {n, 1, nmax}] (* Vaclav Kotesovec, Apr 07 2017 *)
Table[Length[Select[Subsets[Select[IntegerPartitions[n], UnsameQ@@#&],{2}],Intersection@@#=={}&]],{n,15}] (* Gus Wiseman, Oct 07 2023 *)

a(n) = {my(A=1 + O(x*x^n) + O(y*y^n)); polcoef(polcoef(prod(k=1, n, A + x^k + y^k), n), n)/2} \\ Andrew Howroyd, Oct 10 2023

a(n) = ceiling(1/2 * [(x*y)^n] Product_{j>0} (1+x^j+y^j)). - Alois P. Heinz, Mar 31 2017

a(n) = ceiling(A365662(n)/2). - Gus Wiseman, Oct 07 2023

Name edited by Gus Wiseman, Oct 10 2023

a(0)=1 prepended by Alois P. Heinz, Feb 09 2024

A357879 Number of divisors of n with the same sum of prime indices as their quotient. Central column of A321144, taking gaps as 0's.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 2

Offset: 1

Gus Wiseman, Oct 27 2022

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.

			The a(3600) = 5 divisors, their prime indices, and the prime indices of their quotients:
  45: {2,2,3} * {1,1,1,1,3}
  50: {1,3,3} * {1,1,1,2,2}
  60: {1,1,2,3} * {1,1,2,3}
  72: {1,1,1,2,2} * {1,3,3}
  80: {1,1,1,1,3} * {2,2,3}

Antti Karttunen, Table of n, a(n) for n = 1..65537
Index entries for sequences related to prime indices in the factorization of n.

Positions of nonzero terms are A357976, counted by A002219.
A001222 counts prime factors, distinct A001221.
A056239 adds up prime indices, row sums of A112798.
Cf. A033879, A033880, A064914, A181819, A213074, A235130, A237258, A276107, A300061, A321144, A357975.

sumprix[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>k*PrimePi[p]]];
Table[Length[Select[Divisors[n],sumprix[#]==sumprix[n]/2&]],{n,100}]

A056239(n) = if(1==n, 0, my(f=factor(n)); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1])));
A357879(n) = sumdiv(n,d, A056239(d)==A056239(n/d)); \\ Antti Karttunen, Jan 20 2025

a(n) = Sum_{d|n} [A056239(d) = A056239(n/d)], where [ ] is the Iverson bracket. - Antti Karttunen, Jan 20 2025

Data section extended to a(108) by Antti Karttunen, Jan 20 2025

A288638 Number A(n,k) of n-digit biquanimous strings using digits {0,1,...,k}; square array A(n,k), n>=0, k>=0, read by antidiagonals.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 4, 1, 1, 1, 4, 10, 8, 1, 1, 1, 5, 19, 33, 16, 1, 1, 1, 6, 31, 92, 106, 32, 1, 1, 1, 7, 46, 201, 421, 333, 64, 1, 1, 1, 8, 64, 376, 1206, 1830, 1030, 128, 1, 1, 1, 9, 85, 633, 2841, 6751, 7687, 3153, 256, 1

Offset: 0

Alois P. Heinz, Jun 12 2017

A biquanimous string is a string whose digits can be split into two groups with equal sums.

			A(2,2) = 3: 00, 11, 22.
A(3,2) = 10: 000, 011, 022, 101, 110, 112, 121, 202, 211, 220.
A(3,3) = 19: 000, 011, 022, 033, 101, 110, 112, 121, 123, 132, 202, 211, 213, 220, 231, 303, 312, 321, 330.
A(4,1) = 8: 0000, 0011, 0101, 0110, 1001, 1010, 1100, 1111.
Square array A(n,k) begins:
  1,  1,    1,    1,     1,      1,      1,      1, ...
  1,  1,    1,    1,     1,      1,      1,      1, ...
  1,  2,    3,    4,     5,      6,      7,      8, ...
  1,  4,   10,   19,    31,     46,     64,     85, ...
  1,  8,   33,   92,   201,    376,    633,    988, ...
  1, 16,  106,  421,  1206,   2841,   5801,  10696, ...
  1, 32,  333, 1830,  6751,  19718,  48245, 104676, ...
  1, 64, 1030, 7687, 36051, 128535, 372345, 939863, ...

Alois P. Heinz, Antidiagonals n = 0..30, flattened

Columns k=0-9 give: A000012, A011782, A053156, A288687, A288688, A288689, A288690, A288691, A288692, A065024.
Rows n=0+1,2-3 give: A000012, A000027(k+1), A005448(k+1).
Main diagonal gives A288693.
Cf. A064544, A064914.

b:= proc(n, k, s) option remember;
      `if`(n=0, `if`(s={}, 0, 1), add(b(n-1, k, select(y->
       y<=(n-1)*k, map(x-> [abs(x-i), x+i][], s))), i=0..k))
    end:
A:= (n, k)-> b(n, k, {0}):
seq(seq(A(n, d-n), n=0..d), d=0..12);

b[n_, k_, s_] := b[n, k, s] = If[n == 0, If[s == {}, 0, 1], Sum[b[n-1, k, Select[Flatten[{Abs[#-i], #+i}& /@ s], # <= (n-1)*k&]], {i, 0, k}]];
A[n_, k_] := b[n, k, {0}];
Table[A[n, d-n], {d, 0, 10}, {n, 0, d}] // Flatten (* Jean-François Alcover, Jun 08 2018, from Maple *)

A365662 Number of ordered pairs of disjoint strict integer partitions of n.

Original entry on oeis.org

1, 0, 0, 2, 2, 6, 8, 14, 18, 32, 42, 66, 92, 136, 190, 280, 374, 532, 744, 1014, 1366, 1896, 2512, 3384, 4526, 6006, 7910, 10496, 13648, 17842, 23338, 30116, 38826, 50256, 64298, 82258, 105156, 133480, 169392, 214778, 270620, 340554, 428772, 536302, 670522

Offset: 0

Gus Wiseman, Sep 19 2023

nonn

Also the number of ways to first choose a strict partition of 2n, then a subset of it summing to n.

			The a(0) = 1 through a(7) = 14 pairs:
  ()()  .  .  (21)(3)  (31)(4)  (32)(5)   (42)(6)   (43)(7)
              (3)(21)  (4)(31)  (41)(5)   (51)(6)   (52)(7)
                                (5)(32)   (6)(42)   (61)(7)
                                (5)(41)   (6)(51)   (7)(43)
                                (32)(41)  (321)(6)  (7)(52)
                                (41)(32)  (42)(51)  (7)(61)
                                          (51)(42)  (421)(7)
                                          (6)(321)  (43)(52)
                                                    (43)(61)
                                                    (52)(43)
                                                    (52)(61)
                                                    (61)(43)
                                                    (61)(52)
                                                    (7)(421)

Vaclav Kotesovec, Table of n, a(n) for n = 0..1000

For subsets instead of partitions we have A000244, non-disjoint A000302.
If the partitions can have different sums we get A032302.
The non-strict version is A054440, non-disjoint A001255.
The unordered version is A108796, non-strict A260669.
A000041 counts integer partitions, strict A000009.
A000124 counts distinct possible sums of subsets of {1..n}.
A000712 counts distinct submultisets of partitions.
A002219 and A237258 count partitions of 2n including a partition of n.
A304792 counts subset-sums of partitions, positive A276024, strict A284640.
A364272 counts sum-full strict partitions, sum-free A364349.
Cf. A006827, A046663, A064914, A122768, A260664, A365661, A365663.

Table[Length[Select[Tuples[Select[IntegerPartitions[n], UnsameQ@@#&],2], Intersection@@#=={}&]], {n,0,15}]
Table[SeriesCoefficient[Product[(1 + x^k + y^k), {k, 1, n}], {x, 0, n}, {y, 0, n}], {n, 0, 50}] (* Vaclav Kotesovec, Apr 24 2025 *)

a(n) = 2*A108796(n) for n > 1.

a(n) = [(x*y)^n] Product_{k>=1} (1 + x^k + y^k). - Ilya Gutkovskiy, Apr 24 2025

cp's OEIS Frontend

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

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371781 Numbers with biquanimous prime signature.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A367094 Irregular triangle read by rows with trailing zeros removed where T(n,k) is the number of integer partitions of 2n whose number of submultisets summing to n is k.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A371782 Numbers with non-biquanimous prime signature.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A108796 Number of unordered pairs of partitions of n (into distinct parts) with empty intersection.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A357879 Number of divisors of n with the same sum of prime indices as their quotient. Central column of A321144, taking gaps as 0's.

Views

Author

Keywords

Comments

Examples

Links