A038041 -id:A038041 - cp's OEIS frontend

A320324 Numbers of which each prime index has the same number of prime factors, counted with multiplicity.

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 15, 16, 17, 19, 23, 25, 27, 29, 31, 32, 33, 37, 41, 43, 45, 47, 49, 51, 53, 55, 59, 61, 64, 67, 71, 73, 75, 79, 81, 83, 85, 89, 91, 93, 97, 99, 101, 103, 107, 109, 113, 121, 123, 125, 127, 128, 131, 135, 137, 139, 149, 151, 153

Offset: 1

Gus Wiseman, Oct 10 2018

nonn

A prime index of n is a number m such that prime(m) divides n.

			The terms together with their corresponding multiset multisystems (A302242):
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   5: {{2}}
   7: {{1,1}}
   8: {{},{},{}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  15: {{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: {{},{},{},{},{}}
  33: {{1},{3}}
  37: {{1,1,2}}
  41: {{6}}
  43: {{1,4}}
  45: {{1},{1},{2}}
  47: {{2,3}}
  49: {{1,1},{1,1}}

Amiram Eldar, Table of n, a(n) for n = 1..10000
Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A001222, A038041, A112798, A302242, A306017, A317583, A319066, A319169, A320325, A322794, A326533, A326534, A326535, A326536, A326537.

Select[Range[100],SameQ@@PrimeOmega/@PrimePi/@First/@FactorInteger[#]&]

is(n) = #Set(apply(p -> bigomega(primepi(p)), factor(n)[,1]~))<=1 \\ Rémy Sigrist, Oct 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

A057625 a(n) = n! * sum 1/k! where the sum is over all positive integers k that divide n.

Original entry on oeis.org

1, 3, 7, 37, 121, 1201, 5041, 62161, 423361, 5473441, 39916801, 818959681, 6227020801, 130784734081, 1536517382401, 32256486662401, 355687428096001, 10679532671808001, 121645100408832001, 3770998783116364801, 59616236292028416001, 1686001119824999577601

Offset: 1

Leroy Quet, Oct 09 2000

nonn

Sets of lists of equal size, cf. A000262. - Vladeta Jovovic, Nov 02 2003
From Gus Wiseman, Jan 10 2019: (Start)
Number of matrices whose entries are 1,...,n, up to column permutations. For example, inequivalent representatives of the a(4) = 37 matrices are:
One 1 X 4 matrix:
  [1234]
12 2 X 2 matrices:
  [12] [12] [13] [13] [14] [14] [23] [23] [24] [24] [34] [34]
  [34] [43] [24] [42] [23] [32] [14] [41] [13] [31] [12] [21]
and 24 4 X 1 matrices:
  [1][1][1][1][1][1][2][2][2][2][2][2][3][3][3][3][3][3][4][4][4][4][4][4]
  [2][2][3][3][4][4][1][1][3][3][4][4][1][1][2][2][4][4][1][1][2][2][3][3]
  [3][4][2][4][2][3][3][4][1][4][1][3][2][4][1][4][1][2][2][3][1][3][1][2]
  [4][3][4][2][3][2][4][3][4][1][3][1][4][2][4][1][2][1][3][2][3][1][2][1]
in total 1+12+24 = 37.
(End)

			a(4) = 4! (1 + 1/2! + 1/4!) = 24 (1 + 1/2 + 1/24) = 37.

Seiichi Manyama, Table of n, a(n) for n = 1..449

Cf. A000005, A005225, A038041, A038048, A061095, A121860, A209903 (exp), A236696, A320444.

Row sums of A066387.

a[n_] := n! DivisorSum[n, 1/#! &]; Array[a, 22] (* Jean-François Alcover, Dec 23 2015 *)

a(n)=n! * sumdiv(n, d, 1/d! );  /* Joerg Arndt, Oct 07 2012 */

E.g.f.: Sum_{n>0} (exp(x^n)-1). - Vladeta Jovovic, Dec 30 2001
E.g.f.: Sum_{k>0} x^k/k!/(1-x^k). - Vladeta Jovovic, Oct 14 2003
Equals the logarithmic derivative of A209903. - Paul D. Hanna, Jul 26 2012

A326519 Number of normal multiset partitions of weight n where each part has a different sum.

Original entry on oeis.org

1, 1, 3, 11, 51, 259, 1461, 9133, 62348, 459547, 3632419

Offset: 0

Gus Wiseman, Jul 12 2019

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

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

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

Cf. A038041, A255906, A275780, A317583, A321469, A326517, A326518, A326520, A326521, A326535.

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],UnsameQ@@Total/@#&]],{n,0,5}]

a(8)-a(10) from Robert Price, Apr 03 2025

A326535 MM-numbers of multiset partitions where each part has a different sum.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 106, 107, 109

Offset: 1

Gus Wiseman, Jul 12 2019

nonn

First differs from A298540 in having 187.

These are numbers where each prime index has a different 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 each part has a different sum, preceded by their MM-numbers, begins:
   1: {}
   2: {{}}
   3: {{1}}
   5: {{2}}
   6: {{},{1}}
   7: {{1,1}}
  10: {{},{2}}
  11: {{3}}
  13: {{1,2}}
  14: {{},{1,1}}
  15: {{1},{2}}
  17: {{4}}
  19: {{1,1,1}}
  21: {{1},{1,1}}
  22: {{},{3}}
  23: {{2,2}}
  26: {{},{1,2}}
  29: {{1,3}}
  30: {{},{1},{2}}
  31: {{5}}

Robert Price, Table of n, a(n) for n = 1..9715
Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A038041, A112798, A275780, A302242, A320324, A321469, A326519, A326533, A326534, A326536, A326537.

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

A371796 Number of quanimous subsets of {1..n}, meaning there is more than one set partition with all equal block-sums.

Original entry on oeis.org

0, 0, 0, 1, 3, 8, 19, 43, 94, 206, 439, 946, 1990, 4204, 8761, 18233, 37778, 78151, 160296, 328670, 670193, 1363543, 2772436, 5632801, 11404156, 23071507, 46613529, 94098106, 189959349, 383407198, 773009751

Offset: 0

Gus Wiseman, Apr 17 2024

A finite multiset of numbers is defined to be quanimous iff it can be partitioned into two or more multisets with equal sums. Quanimous partitions are counted by A321452 and ranked by A321454.

			The set s = {3,4,6,8,9} has set partitions {{3,4,6,8,9}} and {{3,4,8},{6,9}} with equal block-sums, so s is counted under a(9).
The a(3) = 1 through a(6) = 19 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,4,5}  {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,5}
                                   {1,2,3,4,6}
                                   {1,2,4,5,6}
                                   {2,3,4,5,6}
                                   {1,2,3,4,5,6}

The "bi-" version for integer partitions is A002219 aerated, ranks A357976.
The "bi-" version for strict partitions is A237258 aerated, ranks A357854.
The complement for integer partitions is A321451, ranks A321453.
The version for integer partitions is A321452, ranks A321454
The version for strict partitions is A371737, complement A371736.
The complement is counted by A371789, differences A371790.
The "bi-" version is A371791, complement A371792.
First differences are A371797.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371783 counts k-quanimous partitions.
Cf. A000005, A018818, A035470, A038041, A232466, A279791, A321142, A365661, A371731, A371794, A371795.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[Subsets[Range[n]], Length[Select[sps[#],SameQ@@Total/@#&]]>1&]],{n,0,10}]

a(11)-a(30) from Bert Dobbelaere, Mar 30 2025

A000665 Number of 3-uniform hypergraphs on n unlabeled nodes, or equivalently number of relations with 3 arguments on n nodes.

Original entry on oeis.org

1, 1, 1, 2, 5, 34, 2136, 7013320, 1788782616656, 53304527811667897248, 366299663432194332594005123072, 1171638318502989084030402509596875836036608, 3517726593606526072882013063011594224625680712384971214848

Offset: 0

N. J. A. Sloane

The Qian reference has one incorrect term. The formula given in corollary 2.6 also contains a minor error. The second summation needs to be over p_i*p_j*p_h/lcm(p_i, p_j, p_h) rather than gcd(p_i, p_j, p_h)^2. - Andrew Howroyd, Dec 11 2018

			From _Gus Wiseman_, Dec 13 2018: (Start)
Non-isomorphic representatives of the a(5) = 34 hypergraphs:
  {}
  {{123}}
  {{125}{345}}
  {{134}{234}}
  {{123}{245}{345}}
  {{124}{134}{234}}
  {{135}{245}{345}}
  {{145}{245}{345}}
  {{123}{124}{134}{234}}
  {{123}{145}{245}{345}}
  {{124}{135}{245}{345}}
  {{125}{135}{245}{345}}
  {{134}{235}{245}{345}}
  {{145}{235}{245}{345}}
  {{123}{124}{135}{245}{345}}
  {{123}{145}{235}{245}{345}}
  {{124}{134}{235}{245}{345}}
  {{134}{145}{235}{245}{345}}
  {{135}{145}{235}{245}{345}}
  {{145}{234}{235}{245}{345}}
  {{123}{124}{134}{235}{245}{345}}
  {{123}{134}{145}{235}{245}{345}}
  {{123}{145}{234}{235}{245}{345}}
  {{124}{135}{145}{235}{245}{345}}
  {{125}{135}{145}{235}{245}{345}}
  {{135}{145}{234}{235}{245}{345}}
  {{123}{124}{135}{145}{235}{245}{345}}
  {{124}{135}{145}{234}{235}{245}{345}}
  {{125}{135}{145}{234}{235}{245}{345}}
  {{134}{135}{145}{234}{235}{245}{345}}
  {{123}{124}{135}{145}{234}{235}{245}{345}}
  {{125}{134}{135}{145}{234}{235}{245}{345}}
  {{124}{125}{134}{135}{145}{234}{235}{245}{345}}
  {{123}{124}{125}{134}{135}{145}{234}{235}{245}{345}}
(End)

F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 231.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Alois P. Heinz, Table of n, a(n) for n = 0..28 (first 26 terms from Andrew Howroyd)
P. J. Cameron, Sequences realized by oligomorphic permutation groups, J. Integ. Seqs. Vol. 3 (2000), #00.1.5.
Victor Falgas-Ravry and Emil R. Vaughan, On applications of Razborov's flag algebra calculus to extremal 3-graph theory, arXiv preprint arXiv:1110.1623 [math.CO], 2011.
W. Oberschelp, Kombinatorische Anzahlbestimmungen in Relationen, Math. Ann., 174 (1967), 53-78.
E. M. Palmer, On the number of n-plexes, Discrete Math., 6 (1973), 377-390.
Jianguo Qian, Enumeration of unlabeled uniform hypergraphs, Discrete Math. 326 (2014), 66--74. MR3188989.

Row sums of A092337. Spanning 3-uniform hypergraphs are counted by A322451.
Cf. A000088, A006129, A038041, A299471, A301922, A302374, A302394, A306017, A306021, A320395.
Column k=3 of A309858.

(* about 85 seconds on a laptop computer *)
Needs["Combinatorica`"];Table[A = Subsets[Range[n],{3}];CycleIndex[Replace[Map[Sort,System`PermutationReplace[A, SymmetricGroup[n]], {2}],Table[A[[i]] -> i, {i, 1, Length[A]}], 2], s] /. Table[s[i] -> 2, {i, 1, Binomial[n, 3]}], {n, 1, 8}] (* Geoffrey Critzer, Oct 28 2015 *)
Table[Sum[2^PermutationCycles[Ordering[Map[Sort,Subsets[Range[n],{3}]/.Rule@@@Table[{i,prm[[i]]},{i,n}],{1}]],Length],{prm,Permutations[Range[n]]}]/n!,{n,8}] (* Gus Wiseman, Dec 13 2018 *)
permcount[v_] := Module[{m = 1, s = 0, k = 0, t}, For[i = 1, i <= Length[v], i++, t = v[[i]]; k = If[i > 1 && t == v[[i - 1]], k + 1, 1]; m *= t*k; s += t]; s!/m];
edges[p_] := Sum[Ceiling[(p[[i]] - 1)*((p[[i]] - 2)/6)], {i, 1, Length[p]}] + Sum[Sum[c = p[[i]]; d = p[[j]]; GCD[c, d]*(c + d - 2 + Mod[(c - d)/GCD[c, d], 2])/2 + Sum[c*d*p[[k]]/LCM[c, d, p[[k]]], {k, 1, j - 1}], {j, 1, i - 1}], {i, 2, Length[p]}];
a[n_] := Module[{s = 0}, Do[s += permcount[p]*2^edges[p], {p, IntegerPartitions[n]}]; s/n!];
a /@ Range[0, 12] (* Jean-François Alcover, Jan 08 2021, after Andrew Howroyd *)

permcount(v) = {my(m=1,s=0,k=0,t); for(i=1,#v,t=v[i]; k=if(i>1&&t==v[i-1],k+1,1); m*=t*k;s+=t); s!/m}
edges(p)={sum(i=1, #p, ceil((p[i]-1)*(p[i]-2)/6)) + sum(i=2, #p, sum(j=1, i-1, my(c=p[i], d=p[j]); gcd(c,d)*(c + d - 2 + (c-d)/gcd(c,d)%2)/2 + sum(k=1, j-1, c*d*p[k]/lcm(lcm(c,d), p[k]))))}
a(n) = {my(s=0); forpart(p=n, s+=permcount(p)*2^edges(p)); s/n!} \\ Andrew Howroyd, Dec 11 2018

Corrected and extended by Vladeta Jovovic

a(0)=1 prepended and a(12) from Andrew Howroyd, Dec 11 2018

A005225 Number of permutations of length n with equal cycles.

Original entry on oeis.org

1, 2, 3, 10, 25, 176, 721, 6406, 42561, 436402, 3628801, 48073796, 479001601, 7116730336, 88966701825, 1474541093026, 20922789888001, 400160588853026, 6402373705728001, 133991603578884052, 2457732174030848001, 55735573291977790576, 1124000727777607680001

Offset: 1

N. J. A. Sloane

			For example, a(4)=10 since, of the 24 permutations of length 4, there are 6 permutations with consist of a single 4-cycle, 3 permutations that consist of two 2-cycles and 1 permutation with four 1-cycles.
Also, a(7)=721 since there are 720 permutations with a single cycle of length 7 and 1 permutation with seven 1-cycles.

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
D. P. Walsh, A differentiation-based characterization of primes, Abstracts Amer. Math. Soc., 25 (No. 2, 2002), p. 339, #975-11-237.

Alois P. Heinz, Table of n, a(n) for n = 1..450
R. K. Guy, Letter to N. J. A. Sloane, Jul 1988
D. P. Walsh, Primality test based on the generating function
D. P. Walsh, A differentiation-based characterization of primes
H. S. Wilf, Three problems in combinatorial asymptotics, J. Combin. Theory, A 35 (1983), 199-207.

Cf. A038041, A055225, A236696, A317329.
Column k=1 of A218868.
Column k=0 of A364967 (for n>=1).

a:= n-> n!*add((d/n)^d/d!, d=numtheory[divisors](n)):
seq(a(n), n=1..30);  # Alois P. Heinz, Nov 07 2012

Table[n! Sum[((n/d)!*d^(n/d))^(-1), {d, Divisors[n]}], {n, 21}] (* Jean-François Alcover, Apr 04 2011 *)

a(n):= n!*lsum((d!*(n/d)^d)^(-1),d,listify(divisors(n)));
makelist(a(n),n,1,40); /* Emanuele Munarini, Feb 03 2014 */

a(n) = n!*sum(((n/k)!*k^(n/k))^(-1)) where sum is over all divisors k of n. Exponential generating function [for a(1) through a(n)]= sum(exp(t^k/k)-1, k=1..n).

a(n) = (n-1)! + 1 iff n is a prime.

Additional comments from Dennis P. Walsh, Dec 08 2000

More terms from Vladeta Jovovic, Dec 01 2001

A317583 Number of multiset partitions of normal multisets of size n such that all blocks have the same size.

Original entry on oeis.org

1, 4, 8, 30, 32, 342, 128, 3754, 11360, 56138, 2048, 3834670, 8192, 27528494, 577439424, 2681075210, 131072, 238060300946, 524288, 11045144602614, 115488471132032, 49840258213638, 8388608, 152185891301461434, 140102945910265344, 124260001149229146, 85092642310351607968

Offset: 1

Gus Wiseman, Aug 01 2018

nonn

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

a(n) is the number of nonnegative integer matrices with total sum n, nonzero rows and each column with the same sum with columns in nonincreasing lexicographic order. - Andrew Howroyd, Jan 15 2020

			The a(3) = 8 multiset partitions:
  {{1,1,1}}
  {{1,1,2}}
  {{1,2,2}}
  {{1,2,3}}
  {{1},{1},{1}}
  {{1},{1},{2}}
  {{1},{2},{2}}
  {{1},{2},{3}}

Andrew Howroyd, Table of n, a(n) for n = 1..200
Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Cf. A038041, A255906, A298422, A306017, A306019, A306020, A306021, A320324, A322794, A326517, A326518, A326519, A326520, A326521, A331315.

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_]:=Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1];
Table[Length[Select[Join@@mps/@allnorm[n],SameQ@@Length/@#&]],{n,8}]

\\ here U(n,m) gives number for m blocks of size n.
U(n,m)={sum(k=1, n*m, binomial(binomial(k+n-1, n)+m-1, m)*sum(r=k, n*m, binomial(r, k)*(-1)^(r-k)) )}
a(n)={sumdiv(n, d, U(d, n/d))} \\ Andrew Howroyd, Sep 15 2018

a(p) = 2^p for prime p. - Andrew Howroyd, Sep 15 2018

a(n) = Sum_{d|n} A331315(n/d, d). - Andrew Howroyd, Jan 15 2020

Terms a(9) and beyond from Andrew Howroyd, Sep 15 2018

A371789 Number of non-quanimous subsets of {1..n}, meaning there is only one set partition with all equal block-sums.

Original entry on oeis.org

1, 2, 4, 7, 13, 24, 45, 85, 162, 306, 585, 1102, 2106, 3988, 7623, 14535, 27758, 52921, 101848, 195618, 378383, 733609, 1421868, 2755807, 5373060, 10482925, 20495335, 40119622, 78476107, 153463714, 300732073

Offset: 0

Gus Wiseman, Apr 17 2024

A finite multiset of numbers is defined to be quanimous iff it can be partitioned into two or more multisets with equal sums. Quanimous partitions are counted by A321452 and ranked by A321454.

			The set s = {3,4,6,8,9} has set partitions {{3,4,6,8,9}} and {{3,4,8},{6,9}} with equal block-sums, so s is not counted under a(9).
The a(0) = 1 through a(4) = 13 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}

The "bi-" complement for integer partitions is A002219, ranks A357976.
The "bi-" complement for strict partitions is A237258, ranks A357854.
The version for integer partitions is A321451, ranks A321453.
The complement for integer partitions is A321452, ranks A321454
The version for strict partitions is A371736, complement A371737.
First differences are A371790.
The "bi-" version is A371792, complement A371791.
The "bi-" version for strict partitions is A371794 (bisection A321142).
The "bi-" version for integer partitions is A371795, ranks A371731.
The complement is counted by A371796, differences A371797.
A108917 counts knapsack partitions, ranks A299702, strict A275972.
A366754 counts non-knapsack partitions, ranks A299729, strict A316402.
A371783 counts k-quanimous partitions.
Cf. A000005, A018818, A035470, A038041, A232466, A365663, A365661.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[Subsets[Range[n]], Length[Select[sps[#],SameQ@@Total/@#&]]==1&]],{n,0,8}]

a(11)-a(30) from Bert Dobbelaere, Mar 30 2025

cp's OEIS Frontend

A320324 Numbers of which each prime index has the same number of prime factors, counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

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

A057625 a(n) = n! * sum 1/k! where the sum is over all positive integers k that divide n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A326519 Number of normal multiset partitions of weight n where each part has a different sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A326535 MM-numbers of multiset partitions where each part has a different sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A371796 Number of quanimous subsets of {1..n}, meaning there is more than one set partition with all equal block-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A000665 Number of 3-uniform hypergraphs on n unlabeled nodes, or equivalently number of relations with 3 arguments on n nodes.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A005225 Number of permutations of length n with equal cycles.