A321455 -id:A321455 - cp's OEIS frontend

A035470 Number of ways to break {1,2,3,...,n} into sets with equal sums.

1, 1, 2, 2, 2, 2, 6, 12, 11, 2, 80, 166, 2, 665, 2918, 3309, 9296, 23730, 31875, 301030, 422897, 2, 13716867, 71504980, 100664385, 54148591, 880696662, 498017759, 27450476787, 111911522819, 179459955554, 2144502175214, 59115423983, 45837019664552, 375743493787258, 816118711787493, 2, 9492169507922

Offset: 1

Erich Friedman

nonn

a(n) = 2 <=> |{d|n*(n+1)/2 : d>=n}| = 2. - Alois P. Heinz, Sep 03 2009

			a(7) = 6 since we have 1234567, 16/25/34/7, 167/2345, 257/1346, 347/1256, 356/1247.
From _Gus Wiseman_, Jul 13 2019: (Start)
The a(6) = 2 through a(9) = 11 set partitions with equal block-sums:
  {123456}      {1234567}        {12345678}        {123456789}
  {16}{25}{34}  {1247}{356}      {12348}{567}      {12345}{69}{78}
                {1256}{347}      {12357}{468}      {1239}{456}{78}
                {1346}{257}      {12456}{378}      {1248}{357}{69}
                {167}{2345}      {1278}{3456}      {1257}{348}{69}
                {16}{25}{34}{7}  {1368}{2457}      {1347}{258}{69}
                                 {1458}{2367}      {1356}{249}{78}
                                 {1467}{2358}      {159}{2346}{78}
                                 {1236}{48}{57}    {159}{267}{348}
                                 {138}{246}{57}    {168}{249}{357}
                                 {156}{237}{48}    {18}{27}{36}{45}{9}
                                 {18}{27}{36}{45}
(End)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A164977, A164978. - Alois P. Heinz, Sep 03 2009
Row sums of A275714.
Row sums of A320438.
Cf. A000110, A007837, A038041, A112956, A275780, A275781, A321455, A326512, A326513, A326518, A326534.

with(numtheory): b:= proc() option remember; local i, j, t; `if`(args[1]=0, `if`(nargs=2, 1, b(args[t] $t=2..nargs)), add(`if`(args[j] -args[nargs] <0, 0, b(sort([seq(args[i] -`if`(i=j, args[nargs], 0), i=1..nargs-1)])[], args[nargs]-1)), j=1..nargs-1)) end: a:= proc(n) local i, m, x; m:= n*(n+1)/2; 1+ add(b(i$(m/i), n)/(m/i)!, i=[select(x-> x>=n, divisors(m) minus {m})[]]) end: seq(a(n), n=1..25);  # Alois P. Heinz, Sep 03 2009

b[args_List] := b[args] = If[args[[1]] == 0, If[Length[args] == 2, 1, b[Rest[args]]], Sum[If[args[[j]] - args[[-1]] < 0, 0, b[Sort[Join[Table[ args[[i]] - If[i == j, args[[-1]], 0], {i, 1, Length[args]-1}]]], {args[[-1]]-1}]], {j, 1, Length[args]-1}]]; b[a1_List, a2_List] := b[Join[a1, a2]];
a[n_] := a[n] = With[{m = n*(n+1)/2}, 1+Sum[b[Append[Array[i&, m/i], n]] / (m/i)!, {i, Select[Divisors[m] ~Complement~ {m}, # >= n &]}]];
Table[Print["a(", n, ") = ", a[n]]; a[n], {n, 1, 25}] (* Jean-François Alcover, Mar 22 2017, after Alois P. Heinz *)
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[Range[n]],SameQ@@Total/@#&]],{n,0,10}] (* Gus Wiseman, Jul 13 2019 *)

More terms from John W. Layman, Mar 18 2002
a(19)-a(33) from Alois P. Heinz, Sep 03 2009
a(34) from Alois P. Heinz, May 24 2015
a(35)-a(38) from Max Alekseyev, Feb 15 2024

A321469 Number of factorizations of n into factors > 1 with different sums of prime indices. Number of multiset partitions of the multiset of prime indices of n with distinct block-sums.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 1, 3, 1, 3, 2, 2, 1, 4, 1, 2, 2, 3, 1, 4, 1, 3, 2, 2, 2, 5, 1, 2, 2, 4, 1, 5, 1, 3, 3, 2, 1, 6, 1, 3, 2, 3, 1, 5, 2, 5, 2, 2, 1, 7, 1, 2, 2, 4, 2, 5, 1, 3, 2, 4, 1, 8, 1, 2, 3, 3, 2, 5, 1, 6, 2, 2, 1, 7, 2, 2, 2, 5, 1, 7, 2, 3, 2, 2, 2, 8, 1, 3, 3, 5, 1, 5, 1, 5, 5

Offset: 1

Gus Wiseman, Nov 11 2018

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 sum of prime indices of n is A056239(n).

			The a(72) = 8 multiset partitions with distinct block-sums:
    {{1,1,1,2,2}}
   {{1},{1,1,2,2}}
   {{2},{1,1,1,2}}
   {{1,1},{1,2,2}}
   {{1,2},{1,1,2}}
   {{2,2},{1,1,1}}
  {{1},{2},{1,1,2}}
  {{1},{1,1},{2,2}}
Missing from this list are:
    {{1},{1},{1,2,2}}
    {{1},{1,2},{1,2}}
    {{2},{2},{1,1,1}}
    {{2},{1,1},{1,2}}
   {{1},{1},{1},{2,2}}
   {{1},{1},{2},{1,2}}
   {{1},{2},{2},{1,1}}
  {{1},{1},{1},{2},{2}}

Cf. A001055, A056239, A275780, A317144, A321455, A322794, A326514, A326515, A326516, A326519, A326535, A371734.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Length[Select[mps[primeMS[n]],UnsameQ@@Sort[Total/@#]&]],{n,100}]

A056239(n) = if(1==n, 0, my(f=factor(n)); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1])));
all_have_different_sum_of_pis(facs) = if(!#facs, 1, (#Set(apply(A056239,facs)) == #facs));
A321469(n, m=n, facs=List([])) = if(1==n, all_have_different_sum_of_pis(facs), my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); s += A321469(n/d, d, newfacs))); (s)); \\ Antti Karttunen, Jan 20 2025

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

A326534 MM-numbers of multiset partitions where every part has the same sum.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 35, 37, 41, 43, 47, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 143, 149, 151, 157, 163, 167, 169, 173, 175, 179, 181, 191

Offset: 1

Gus Wiseman, Jul 12 2019

nonn

First differs from A298538 in lacking 187.

These are numbers where each prime index has the same sum of prime indices. 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 multiset multisystem with MM-number n is obtained by taking the multiset of prime indices of each prime index of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}.

			The sequence of multiset partitions where every part has the same sum, preceded by their MM-numbers, begins:
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   5: {{2}}
   7: {{1,1}}
   8: {{},{},{}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  16: {{},{},{},{}}
  17: {{4}}
  19: {{1,1,1}}
  23: {{2,2}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  32: {{},{},{},{},{}}
  35: {{2},{1,1}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A035470, A038041, A112798, A302242, A320324, A321455, A326518, A326533, A326535, A326536, A326537.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],SameQ@@Total/@primeMS/@primeMS[#]&]

A321452 Number of integer partitions of n that can be partitioned into two or more blocks with equal sums.

Original entry on oeis.org

0, 0, 1, 1, 3, 1, 7, 1, 14, 10, 26, 1, 55, 1, 90, 68, 167, 1, 292, 1, 482, 345, 761, 1, 1291, 266, 1949, 1518, 3091, 1, 4793, 1, 7177, 5612, 10566, 2623, 16007, 1, 22912, 18992, 33619, 1, 48529, 1, 68758, 59187, 96571, 1, 137489, 11418, 189979, 167502, 264299

Offset: 0

Gus Wiseman, Nov 10 2018

nonn

a(n) = 1 if and only if n is prime. - Chai Wah Wu, Nov 12 2018

			The a(2) = 1 through a(9) = 10 partitions:
  (11)  (111)  (22)    (11111)  (33)      (1111111)  (44)        (333)
               (211)            (222)                (422)       (3321)
               (1111)           (321)                (431)       (32211)
                                (2211)               (2222)      (33111)
                                (3111)               (3221)      (222111)
                                (21111)              (3311)      (321111)
                                (111111)             (4211)      (2211111)
                                                     (22211)     (3111111)
                                                     (32111)     (21111111)
                                                     (41111)     (111111111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)
The partition (32111) can be partitioned as ((13)(112)), and the blocks both sum to 4, so (32111) is counted under a(8).

Cf. A000041, A265947, A276024, A279787, A305551, A306017, A317141, A320322, A321451, A321453, A321454, A321455.

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

a(n) = A000041(n) - A321451(n).

a(26)-a(52) from Alois P. Heinz, Nov 11 2018

A326518 Number of normal multiset partitions of weight n where every part has the same sum.

Original entry on oeis.org

1, 1, 3, 7, 15, 31, 75, 169, 445, 1199, 3471

Offset: 0

Gus Wiseman, Jul 12 2019

nonn

A multiset partition is normal if it covers an initial interval of positive integers.

			The a(0) = 1 through a(4) = 15 normal multiset partitions:
  {}  {{1}}  {{1,1}}    {{1,1,1}}      {{1,1,1,1}}
             {{1,2}}    {{1,1,2}}      {{1,1,1,2}}
             {{1},{1}}  {{1,2,2}}      {{1,1,2,2}}
                        {{1,2,3}}      {{1,1,2,3}}
                        {{2},{1,1}}    {{1,2,2,2}}
                        {{3},{1,2}}    {{1,2,2,3}}
                        {{1},{1},{1}}  {{1,2,3,3}}
                                       {{1,2,3,4}}
                                       {{1,1},{1,1}}
                                       {{1,2},{1,2}}
                                       {{1,3},{2,2}}
                                       {{1,4},{2,3}}
                                       {{2},{2},{1,1}}
                                       {{3},{3},{1,2}}
                                       {{1},{1},{1},{1}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A035470, A038041, A255906, A317583, A321455, A326517, A326519, A326520, A326521, A326534.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
Table[Length[Select[Join@@mps/@allnorm[n],SameQ@@Total/@#&]],{n,0,5}]

a(10) from Robert Price, Apr 04 2025

A321451 Number of integer partitions of n that cannot be partitioned into two or more blocks with equal sums.

Original entry on oeis.org

1, 1, 1, 2, 2, 6, 4, 14, 8, 20, 16, 55, 22, 100, 45, 108, 64, 296, 93, 489, 145, 447, 241, 1254, 284, 1692, 487, 1492, 627, 4564, 811, 6841, 1172, 4531, 1744, 12260, 1970, 21636, 3103, 12193, 3719, 44582, 4645, 63260, 6417, 29947, 8987, 124753, 9784, 162107, 14247

Offset: 0

Gus Wiseman, Nov 10 2018

nonn

			The a(1) = 1 through a(9) = 20 partitions:
  (1)  (2)  (3)   (4)   (5)     (6)    (7)       (8)     (9)
            (21)  (31)  (32)    (42)   (43)      (53)    (54)
                        (41)    (51)   (52)      (62)    (63)
                        (221)   (411)  (61)      (71)    (72)
                        (311)          (322)     (332)   (81)
                        (2111)         (331)     (521)   (432)
                                       (421)     (611)   (441)
                                       (511)     (5111)  (522)
                                       (2221)            (531)
                                       (3211)            (621)
                                       (4111)            (711)
                                       (22111)           (3222)
                                       (31111)           (4221)
                                       (211111)          (4311)
                                                         (5211)
                                                         (6111)
                                                         (22221)
                                                         (42111)
                                                         (51111)
                                                         (411111)
A complete list of all multiset partitions of the partition (2111) into two or more blocks is: ((1)(112)), ((2)(111)), ((11)(12)), ((1)(1)(12)), ((1)(2)(11)), ((1)(1)(1)(2)). None of these has equal block-sums, so (2111) is counted toward a(5).
On the other hand, the partition (321) can be partitioned as ((12)(3)), which has two or more blocks and equal block-sums, so (321) is not counted toward a(6).

Cf. A000041, A265947, A276024, A279787, A305551, A306017, A317141, A320322, A321452, A321453, A321454, A321455.

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

a(n) = A000041(n) - A321452(n).

a(33)-a(50) from Alois P. Heinz, Nov 11 2018

A321454 Numbers that can be factored into two or more factors all having the same sum of prime indices.

Original entry on oeis.org

4, 8, 9, 12, 16, 25, 27, 30, 32, 36, 40, 48, 49, 63, 64, 70, 81, 84, 90, 100, 108, 112, 120, 121, 125, 128, 144, 150, 154, 160, 165, 169, 180, 192, 196, 198, 200, 210, 216, 220, 225, 240, 243, 252, 256, 264, 270, 273, 280, 286, 288, 289, 300, 320, 324, 325

Offset: 1

Gus Wiseman, Nov 10 2018

nonn

Also Heinz numbers of integer partitions that can be partitioned into two or more blocks with equal sums. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

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 sum of prime indices of n is A056239(n).

			The sequence of all integer partitions that can be partitioned into two or more blocks with equal sums begins: (11), (111), (22), (211), (1111), (33), (222), (321), (11111), (2211), (3111), (21111), (44), (422), (111111), (431), (2222), (4211), (3221), (3311), (22211), (41111), (32111), (55), (333), (1111111), (221111), (3321), (541), (311111), (532), (66), (32211), (2111111), (4411), (5221), (33111).
The Heinz number of (32111) is 120, which has factorization (10*12) corresponding to the multiset partition ((13)(112)) whose blocks have equal sums, so 120 belongs to the sequence.

Positions of terms > 1 in A321455.

Cf. A056239, A112798, A276024, A279787, A305551, A306017, A317144, A320322, A321451, A321452, A321453.

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[100],Select[facs[#],And[Length[#]>1,SameQ@@hwt/@#]&]!={}&]

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

A321453 Numbers that cannot be factored into two or more factors all having the same sum of prime indices.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 28, 29, 31, 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, 82, 83, 85

Offset: 1

Gus Wiseman, Nov 10 2018

nonn

Also Heinz numbers of integer partitions that cannot be partitioned into two or more blocks with equal sums. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

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 sum of prime indices of n is A056239(n).

			The sequence of all integer partitions that cannot be partitioned into two or more blocks with equal sums begins: (1), (2), (3), (21), (4), (31), (5), (6), (41), (32), (7), (221), (8), (311), (42), (51), (9), (2111), (61), (411).

Positions of 1's in A321455.

Cf. A056239, A112798, A276024, A279787, A305551, A306017, A317144, A320322, A321451, A321452, A321454.

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[100],Select[facs[#],And[Length[#]>1,SameQ@@hwt/@#]&]=={}&]

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

cp's OEIS Frontend

A035470 Number of ways to break {1,2,3,...,n} into sets with equal sums.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A321469 Number of factorizations of n into factors > 1 with different sums of prime indices. Number of multiset partitions of the multiset of prime indices of n with distinct block-sums.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A326534 MM-numbers of multiset partitions where every part has the same sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A321452 Number of integer partitions of n that can be partitioned into two or more blocks with equal sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A326518 Number of normal multiset partitions of weight n where every part has the same sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A321451 Number of integer partitions of n that cannot be partitioned into two or more blocks with equal sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A321454 Numbers that can be factored into two or more factors all having the same sum of prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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