A326537 -id:A326537 - cp's OEIS frontend

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

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[#]&]

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

Original entry on oeis.org

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

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[#]&]

A326513 Number of set partitions of {1..n} where each block has a different average.

Original entry on oeis.org

1, 1, 2, 4, 12, 40, 154, 650, 3024, 15110, 81538, 468494, 2863340, 18481390, 125838194, 897725927, 6715102246, 52372397021, 425716871241, 3594451206166, 31509992921241, 285799247349838, 2682935185643622, 25990339824995969, 259777696236210943, 2673388551328088666

Offset: 0

Gus Wiseman, Jul 11 2019

nonn

			The a(1) = 1 through a(4) = 12 set partitions:
  {{1}}  {{1,2}}    {{1,2,3}}      {{1,2,3,4}}
         {{1},{2}}  {{1},{2,3}}    {{1},{2,3,4}}
                    {{1,2},{3}}    {{1,2},{3,4}}
                    {{1},{2},{3}}  {{1,2,3},{4}}
                                   {{1,2,4},{3}}
                                   {{1,3},{2,4}}
                                   {{1,3,4},{2}}
                                   {{1},{2},{3,4}}
                                   {{1},{2,3},{4}}
                                   {{1,2},{3},{4}}
                                   {{1,4},{2},{3}}
                                   {{1},{2},{3},{4}}

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

Cf. A000110, A007837, A035470, A038041, A275780, A326512, A326516, A326521, A326537.

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

a(12) from Alois P. Heinz, Jul 12 2019

a(13)-a(25) from Christian Sievers, Aug 20 2024

A326516 Number of factorizations of n into factors > 1 where each factor has a different average of prime indices.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 12 2019

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(60) = 8 factorizations: (2*5*6), (3*4*5), (2*30), (3*20), (4*15), (5*12), (6*10), (60).

Cf. A001055, A038041, A051293, A321455, A321469, A322794, A326513, A326514, A326515, A326521, A326537.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[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[facs[n],UnsameQ@@Mean/@primeMS/@#&]],{n,100}]

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

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

A382201 MM-numbers of sets of sets with distinct sums.

Original entry on oeis.org

1, 2, 3, 5, 6, 10, 11, 13, 15, 17, 22, 26, 29, 30, 31, 33, 34, 39, 41, 43, 47, 51, 55, 58, 59, 62, 65, 66, 67, 73, 78, 79, 82, 83, 85, 86, 87, 93, 94, 101, 102, 109, 110, 113, 118, 123, 127, 129, 130, 134, 137, 139, 141, 145, 146, 149, 155, 157, 158, 163, 165

Offset: 1

Gus Wiseman, Mar 21 2025

nonn

First differs from A302494 in lacking 143, corresponding to the multiset partition {{1,2},{3}}.
Also products of prime numbers of squarefree index such that the factors all have distinct sums 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, sum A056239. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

			The terms together with their prime indices of prime indices begin:
   1: {}
   2: {{}}
   3: {{1}}
   5: {{2}}
   6: {{},{1}}
  10: {{},{2}}
  11: {{3}}
  13: {{1,2}}
  15: {{1},{2}}
  17: {{4}}
  22: {{},{3}}
  26: {{},{1,2}}
  29: {{1,3}}
  30: {{},{1},{2}}
  31: {{5}}
  33: {{1},{3}}
  34: {{},{4}}
  39: {{1},{1,2}}

Set partitions of this type are counted by A275780.
Twice-partitions of this type are counted by A279785.
For just sets of sets we have A302478.
For distinct blocks instead of block-sums we have A302494.
For equal instead of distinct sums we have A302497.
For just distinct sums we have A326535.
For normal multiset partitions see A326519, A326533, A326537, A381718.
Factorizations of this type are counted by A381633. See also A001055, A045778, A050320, A050326, A321455, A321469, A382080.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
Cf. A000720, A003963, A005117, A007716, A293511, A302242, A319899, A326534, A368100, A368101, A381635, A382215.

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

Equals A302478 /\ A326535.

A326533 MM-numbers of multiset partitions where each part has a different length.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 17, 19, 21, 22, 23, 26, 29, 31, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 53, 57, 58, 59, 61, 62, 65, 67, 69, 70, 71, 73, 74, 77, 78, 79, 82, 83, 86, 87, 89, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 114, 115, 118, 119, 122

Offset: 1

Gus Wiseman, Jul 12 2019

nonn

These are numbers where each prime index has a different Omega (number of prime factors counted with multiplicity). 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 average 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}}
  17: {{4}}
  19: {{1,1,1}}
  21: {{1},{1,1}}
  22: {{},{3}}
  23: {{2,2}}
  26: {{},{1,2}}
  29: {{1,3}}
  31: {{5}}
  34: {{},{4}}
  35: {{2},{1,1}}

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

A subsequence of A005117.

Cf. A007837, A038041, A112798, A302242, A320324, A326026, A326514, A326517, A326534, A326535, A326536, A326537.

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

A326521 Number of normal multiset partitions of weight n where each part has a different average.

Original entry on oeis.org

1, 1, 3, 11, 49, 251, 1418, 8904

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 where each part has a different average:
  {}  {{1}}  {{1,1}}    {{1,1,1}}
             {{1,2}}    {{1,1,2}}
             {{1},{2}}  {{1,2,2}}
                        {{1,2,3}}
                        {{1},{1,2}}
                        {{1},{2,2}}
                        {{1},{2,3}}
                        {{2},{1,1}}
                        {{2},{1,2}}
                        {{3},{1,2}}
                        {{1},{2},{3}}

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

Cf. A051293, A255906, A317583, A326513, A326516, A326517, A326518, A326519, A326520, A326537.

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

A070925 Number of subsets of A = {1,2,...,n} that have the same center of gravity as A, i.e., (n+1)/2.

Original entry on oeis.org

1, 1, 3, 3, 7, 7, 19, 17, 51, 47, 151, 137, 471, 427, 1519, 1391, 5043, 4651, 17111, 15883, 59007, 55123, 206259, 193723, 729095, 688007, 2601639, 2465133, 9358943, 8899699, 33904323, 32342235, 123580883, 118215779, 452902071, 434314137, 1667837679, 1602935103

Offset: 1

Sharon Sela (sharonsela(AT)hotmail.com), May 20 2002

nonn

From Gus Wiseman, Apr 15 2023: (Start)
Also the number of nonempty subsets of {0..n} with mean n/2. The a(0) = 1 through a(5) = 7 subsets are:
  {0}  {0,1}  {1}      {0,3}      {2}          {0,5}
              {0,2}    {1,2}      {0,4}        {1,4}
              {0,1,2}  {0,1,2,3}  {1,3}        {2,3}
                                  {0,2,4}      {0,1,4,5}
                                  {1,2,3}      {0,2,3,5}
                                  {0,1,3,4}    {1,2,3,4}
                                  {0,1,2,3,4}  {0,1,2,3,4,5}
(End)

			Of the 32 (2^5) sets which can be constructed from the set A = {1,2,3,4,5} only the sets {3}, {2, 3, 4}, {2, 4}, {1, 2, 4, 5}, {1, 2, 3, 4, 5}, {1, 3, 5}, {1, 5} give an average of 3.

Fausto A. C. Cariboni, Table of n, a(n) for n = 1..40

The odd bisection is A000980(n) - 1 = 2*A047653(n) - 1.
For median instead of mean we have A100066, bisection A006134.
Including the empty set gives A222955.
The one-based version is A362046, even bisection A047653(n) - 1.
A007318 counts subsets by length.
A067538 counts partitions with integer mean, strict A102627.
A231147 counts subsets by median.
A327481 counts subsets by integer mean.
Cf. A024718, A057552, A079309, A133406, A326512, A326513, A326537, A327475, A349156, A359893.

Needs["DiscreteMath`Combinatorica`"]; f[n_] := Block[{s = Subsets[n], c = 0, k = 2}, While[k < 2^n + 1, If[ (Plus @@ s[[k]]) / Length[s[[k]]] == (n + 1)/2, c++ ]; k++ ]; c]; Table[ f[n], {n, 1, 20}]
(* second program *)
Table[Length[Select[Subsets[Range[0,n]],Mean[#]==n/2&]],{n,0,10}] (* Gus Wiseman, Apr 15 2023 *)

From Gus Wiseman, Apr 18 2023: (Start)
a(2n+1) = A000980(n) - 1.
a(n) = A222955(n) - 1.
a(n) = 2*A362046(n) + 1.
(End)

Edited by Robert G. Wilson v and John W. Layman, May 25 2002

a(34)-a(38) from Fausto A. C. Cariboni, Oct 08 2020

A326536 MM-numbers of multiset partitions where every part has the same average.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 21, 23, 25, 27, 29, 31, 32, 37, 41, 43, 47, 49, 53, 57, 59, 61, 63, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 115, 121, 125, 127, 128, 131, 133, 137, 139, 145, 147, 149, 151, 157, 159, 163, 167

Offset: 1

Gus Wiseman, Jul 12 2019

nonn

First differs from A322902 in having 145.

These are numbers where each prime index has the same average 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 average, 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}}
  21: {{1},{1,1}}
  23: {{2,2}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  32: {{},{},{},{},{}}

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

Cf. A038041, A051293, A112798, A302242, A320324, A326512, A326515, A326520, A326533, A326534, A326535, A326537.

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A326513 Number of set partitions of {1..n} where each block has a different average.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A326516 Number of factorizations of n into factors > 1 where each factor has a different average of prime indices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A382201 MM-numbers of sets of sets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A326533 MM-numbers of multiset partitions where each part has a different length.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A326521 Number of normal multiset partitions of weight n where each part has a different average.

Views

Author

Keywords

Comments

Examples