A317583 -id:A317583 - cp's OEIS frontend

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

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}]

A382204 Number of normal multiset partitions of weight n into constant blocks with a common sum.

Original entry on oeis.org

1, 1, 2, 3, 4, 4, 7, 5, 8, 8, 10, 8, 15, 9, 14, 15, 17, 13, 22, 14, 25, 21, 23, 19, 34, 24, 29, 28, 37, 27, 45, 29, 44, 38, 43, 43, 59, 40, 51, 48, 69, 48, 71, 52, 73, 69, 72, 61, 93, 72, 91, 77, 99, 78, 105, 95, 119, 95, 113, 96, 146, 107, 126, 123, 151, 130

Offset: 0

Gus Wiseman, Mar 26 2025

nonn

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The weight of a multiset partition is the sum of sizes of its blocks.

			The a(1) = 1 through a(6) = 7 multiset partitions:
  {1} {11}   {111}     {1111}       {11111}         {111111}
      {1}{1} {2}{11}   {11}{11}     {2}{11}{11}     {111}{111}
             {1}{1}{1} {2}{2}{11}   {2}{2}{2}{11}   {22}{1111}
                       {1}{1}{1}{1} {1}{1}{1}{1}{1} {11}{11}{11}
                                                    {2}{2}{11}{11}
                                                    {2}{2}{2}{2}{11}
                                                    {1}{1}{1}{1}{1}{1}
The a(1) = 1 through a(7) = 5 factorizations:
  2  4    8      16       32         64           128
     2*2  3*4    4*4      3*4*4      8*8          3*4*4*4
          2*2*2  3*3*4    3*3*3*4    9*16         3*3*3*4*4
                 2*2*2*2  2*2*2*2*2  4*4*4        3*3*3*3*3*4
                                     3*3*4*4      2*2*2*2*2*2*2
                                     3*3*3*3*4
                                     2*2*2*2*2*2

Christian Sievers, Table of n, a(n) for n = 0..25000

Without a common sum we have A055887.
Twice-partitions of this type are counted by A279789.
Without constant blocks we have A326518.
For distinct block-sums and strict blocks we have A381718.
Factorizations of this type are counted by A381995.
For distinct instead of equal block-sums we have A382203.
For strict instead of constant blocks we have A382429.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count multiset partitions of prime indices, strict A045778.
A089259 counts set multipartitions of integer partitions.
A255906 counts normal multiset partitions, row sums of A317532.
A321469 counts multiset partitions with distinct block-sums, ranks A326535.
Normal multiset partitions: A035310, A304969, A356945.
Set multipartitions: A116540, A270995, A296119, A318360.
Set multipartitions with distinct sums: A279785, A381806, A381870.
Constant blocks with distinct sums: A381635, A381636, A381716.
Cf. A007716, A034691, A034729, A116539, A255903, A317583, A326520, A382216.

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

h(s,x)=my(t=0,p=1,k=1);while(s%k==0,p*=1/(1-x^(s/k))-1;t+=p;k+=1);t
lista(n)=Vec(1+sum(s=1,n,h(s,x+O(x*x^n)))) \\ Christian Sievers, Apr 05 2025

G.f.: 1 + Sum_{s>=1} Sum_{k=1..A055874(s)} Product_{v=1..k} (1/(1-x^(s/v)) - 1). - Christian Sievers, Apr 05 2025

Terms a(16) and beyond from Christian Sievers, Apr 04 2025

A336137 Number of set partitions of the binary indices of n with equal block-sums.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 1, 3, 2, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1

Offset: 0

Gus Wiseman, Jul 12 2020

nonn

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

			The a(n) set partitions for n = 7, 59, 119, 367, 127:
  {123}    {12456}      {123567}      {1234679}    {1234567}
  {12}{3}  {126}{45}    {1236}{57}    {12346}{79}  {1247}{356}
           {15}{24}{6}  {156}{237}    {1249}{367}  {1256}{347}
                        {17}{26}{35}  {1267}{349}  {1346}{257}
                                      {169}{2347}  {167}{2345}
                                                   {16}{25}{34}{7}
The binary indices of 382 are {2,3,4,5,6,7,9}, with equal block-sum set partitions:
  {{2,7},{3,6},{4,5},{9}}
  {{2,4,6},{3,9},{5,7}}
  {{2,7,9},{3,4,5,6}}
  {{2,3,4,9},{5,6,7}}
  {{2,3,6,7},{4,5,9}}
  {{2,4,5,7},{3,6,9}}
  {{2,3,4,5,6,7,9}}
so a(382) = 7.

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

These set partitions are counted by A035470.
The version for twice-partitions is A279787.
The version for partitions of partitions is A305551.
The version for factorizations is A321455.
The version for normal multiset partitions is A326518.
The version for distinct block-sums is A336138.
Set partitions of binary indices are A050315.
Normal multiset partitions with equal lengths are A317583.
Normal multiset partitions with equal averages are A326520.
Multiset partitions with equal block-sums are ranked by A326534.
Cf. A000110, A007837, A032011, A038041, A271619, A275780, A322794.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[bpe[n]],SameQ@@Total/@#&]],{n,0,100}]

A382429 Number of normal multiset partitions of weight n into sets with a common sum.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 13, 26, 57, 113, 283, 854, 2401, 6998, 24072, 85061, 308956, 1190518, 4770078, 19949106, 87059592

Offset: 0

Gus Wiseman, Mar 26 2025

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The weight of a multiset partition is the sum of sizes of its blocks.

			The a(1) = 1 through a(6) = 13 partitions:
  {1} {12}   {123}     {1234}       {12345}         {123456}
      {1}{1} {3}{12}   {12}{12}     {24}{123}       {123}{123}
             {1}{1}{1} {14}{23}     {34}{124}       {125}{134}
                       {3}{3}{12}   {3}{12}{12}     {135}{234}
                       {1}{1}{1}{1} {5}{14}{23}     {145}{235}
                                    {3}{3}{3}{12}   {12}{12}{12}
                                    {1}{1}{1}{1}{1} {14}{14}{23}
                                                    {14}{23}{23}
                                                    {16}{25}{34}
                                                    {3}{3}{12}{12}
                                                    {5}{5}{14}{23}
                                                    {3}{3}{3}{3}{12}
                                                    {1}{1}{1}{1}{1}{1}
The corresponding factorizations:
  2  6    30     210      2310       30030
     2*2  5*6    6*6      21*30      30*30
          2*2*2  14*15    35*42      6*6*6
                 5*5*6    5*6*6      66*70
                 2*2*2*2  5*5*5*6    110*105
                          11*14*15   154*165
                          2*2*2*2*2  5*5*6*6
                                     14*14*15
                                     14*15*15
                                     26*33*35
                                     5*5*5*5*6
                                     11*11*14*15
                                     2*2*2*2*2*2

Without the common sum we have A116540 (normal set multipartitions).
Twice-partitions of this type are counted by A279788.
For common sizes instead of sums we have A317583.
Without strict blocks we have A326518, non-strict blocks A326517.
For a common length instead of sum we have A331638.
For distinct instead of equal block-sums we have A381718.
Factorizations of this type are counted by A382080.
For distinct block-sums and constant blocks we have A382203.
For constant instead of strict blocks we have A382204.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count multiset partitions of prime indices, strict A045778.
A321469 counts multiset partitions with distinct block-sums, ranks A326535.
Normal multiset partitions: A035310, A255906, A304969, A317532.
Set multipartitions: A089259, A116539, A270995, A296119, A318360.
Set multipartitions with distinct sums: A279785, A381806, A381870.
Constant blocks with distinct sums: A381635, A381636, A381716.
Cf. A000110, A034691, A038041, A050320, A255903, A326520, A381633, A381996, A382214, A382216.

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

a(11) from Robert Price, Mar 30 2025

a(12)-a(20) from Christian Sievers, Apr 06 2025

A382203 Number of normal multiset partitions of weight n into constant multisets with distinct sums.

Original entry on oeis.org

1, 1, 2, 4, 9, 19, 37, 76, 159, 326, 671, 1376, 2815, 5759, 11774, 24083, 49249, 100632, 205490, 419420, 855799, 1745889, 3561867, 7268240, 14836127, 30295633, 61888616

Offset: 0

Gus Wiseman, Mar 26 2025

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The weight of a multiset partition is the sum of sizes of its blocks.

			The a(1) = 1 through a(4) = 9 multiset partitions:
  {{1}}  {{1,1}}    {{1,1,1}}      {{1,1,1,1}}
         {{1},{2}}  {{1},{1,1}}    {{1},{1,1,1}}
                    {{1},{2,2}}    {{1,1},{2,2}}
                    {{1},{2},{3}}  {{1},{2,2,2}}
                                   {{2},{1,1,1}}
                                   {{1},{2},{2,2}}
                                   {{1},{2},{3,3}}
                                   {{1},{3},{2,2}}
                                   {{1},{2},{3},{4}}
The a(5) = 19 factorizations:
  32  2*16  2*3*27   2*3*5*25  2*3*5*7*11
      4*8   2*4*9    2*3*5*9
      2*81  2*3*8    2*3*5*49
      4*27  2*3*125  2*3*7*25
      9*8   2*9*25
      3*16  2*5*27
            5*4*9

Without distinct sums we have A055887.
Twice-partitions of this type are counted by A279786.
For distinct blocks instead of sums we have A304969.
Without constant blocks we have A326519.
Factorizations of this type are counted by A381635.
For strict instead of constant blocks we have A381718.
For equal instead of distinct block-sums we have A382204.
For equal block-sums and strict blocks we have A382429.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count multiset partitions of prime indices, strict A045778.
A089259 counts set multipartitions of integer partitions.
A321469 counts multiset partitions with distinct block-sums, ranks A326535.
Normal multiset partitions: A035310, A116540, A255906, A317532.
Set multipartitions with distinct sums: A279785, A381806, A381870.
Cf. A007716, A116539, A255903, A275780, A317583, A326517, A326518, A381633, A381636, A382216, A382428.

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

a(14)-a(26) from Christian Sievers, Apr 04 2025

A322785 Number of uniform multiset partitions of uniform multisets of size n whose union is an initial interval of positive integers.

Original entry on oeis.org

1, 1, 4, 4, 12, 4, 48, 4, 183, 297, 1186, 4, 33950, 4, 139527, 1529608, 4726356, 4, 229255536, 4, 3705777010, 36279746314, 13764663019, 4, 14096735197959, 5194673049514, 7907992957755, 2977586461058927, 13426396910491001, 4, 1350012288268171854, 4, 59487352224070807287

Offset: 0

Gus Wiseman, Dec 26 2018

nonn

A multiset is uniform if all multiplicities are equal. A multiset partition is uniform if all parts have the same size.

			The a(1) = 1 though a(6) = 48 multiset partitions:
  {1}  {11}    {111}      {1111}        {11111}          {111111}
       {12}    {123}      {1122}        {12345}          {111222}
       {1}{1}  {1}{1}{1}  {1234}        {1}{1}{1}{1}{1}  {112233}
       {1}{2}  {1}{2}{3}  {11}{11}      {1}{2}{3}{4}{5}  {123456}
                          {11}{22}                       {111}{111}
                          {12}{12}                       {111}{222}
                          {12}{34}                       {112}{122}
                          {13}{24}                       {112}{233}
                          {14}{23}                       {113}{223}
                          {1}{1}{1}{1}                   {122}{133}
                          {1}{1}{2}{2}                   {123}{123}
                          {1}{2}{3}{4}                   {123}{456}
                                                         {124}{356}
                                                         {125}{346}
                                                         {126}{345}
                                                         {134}{256}
                                                         {135}{246}
                                                         {136}{245}
                                                         {145}{236}
                                                         {146}{235}
                                                         {156}{234}
                                                         {11}{11}{11}
                                                         {11}{12}{22}
                                                         {11}{22}{33}
                                                         {11}{23}{23}
                                                         {12}{12}{12}
                                                         {12}{12}{33}
                                                         {12}{13}{23}
                                                         {12}{34}{56}
                                                         {12}{35}{46}
                                                         {12}{36}{45}
                                                         {13}{13}{22}
                                                         {13}{24}{56}
                                                         {13}{25}{46}
                                                         {13}{26}{45}
                                                         {14}{23}{56}
                                                         {14}{25}{36}
                                                         {14}{26}{35}
                                                         {15}{23}{46}
                                                         {15}{24}{36}
                                                         {15}{26}{34}
                                                         {16}{23}{45}
                                                         {16}{24}{35}
                                                         {16}{25}{34}
                                                         {1}{1}{1}{1}{1}{1}
                                                         {1}{1}{1}{2}{2}{2}
                                                         {1}{1}{2}{2}{3}{3}
                                                         {1}{2}{3}{4}{5}{6}

Andrew Howroyd, Table of n, a(n) for n = 0..100

Row sums of A322788.

Cf. A000040, A038041, A072774, A100778, A299353, A306017, A306018, A306021, A317583, A317584, A319056, A319189, A321721, A322705, A322784, A322788.

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[Sum[Length[Select[mps[m],SameQ@@Length/@#&]],{m,Table[Join@@Table[Range[n/d],{d}],{d,Divisors[n]}]}],{n,8}]

a(n) = 4 <=> n in { A000040 }. - Alois P. Heinz, Feb 03 2022

More terms from Alois P. Heinz, Jan 30 2019

Terms a(14) and beyond from Andrew Howroyd, Feb 03 2022

A331638 Number of binary matrices with nonzero rows, a total of n ones and each column with the same number of ones and columns in nonincreasing lexicographic order.

Original entry on oeis.org

1, 3, 5, 16, 17, 140, 65, 1395, 2969, 22176, 1025, 1050766, 4097, 13010328, 128268897, 637598438, 65537, 64864962683, 262145, 1676258452736, 28683380484257, 24908619669860, 4194305, 30567710172480050, 8756434134071649, 62128557507554504, 21271147396968151093

Offset: 1

Andrew Howroyd, Jan 23 2020

nonn

The condition that the columns be in nonincreasing order is equivalent to considering nonequivalent matrices up to permutation of columns.
From Gus Wiseman, Apr 03 2025: (Start)
Also the number of multiset partitions such that (1) the blocks together cover an initial interval of positive integers, (2) the blocks are sets of a common size, and (3) the block-sizes sum to n. For example, the a(1) = 1 through a(4) = 16 multiset partitions are:
  {{1}}  {{1,2}}    {{1,2,3}}      {{1,2,3,4}}
         {{1},{1}}  {{1},{1},{1}}  {{1,2},{1,2}}
         {{1},{2}}  {{1},{1},{2}}  {{1,2},{1,3}}
                    {{1},{2},{2}}  {{1,2},{2,3}}
                    {{1},{2},{3}}  {{1,2},{3,4}}
                                   {{1,3},{2,3}}
                                   {{1,3},{2,4}}
                                   {{1,4},{2,3}}
                                   {{1},{1},{1},{1}}
                                   {{1},{1},{1},{2}}
                                   {{1},{1},{2},{2}}
                                   {{1},{1},{2},{3}}
                                   {{1},{2},{2},{2}}
                                   {{1},{2},{2},{3}}
                                   {{1},{2},{3},{3}}
                                   {{1},{2},{3},{4}}
(End)

Andrew Howroyd, Table of n, a(n) for n = 1..200

Cf. A330942, A331639.
For constant instead of strict blocks we have A034729.
Without equal sizes we have A116540 (normal set multipartitions).
Without strict blocks we have A317583.
For distinct instead of equal sizes we have A382428, non-strict blocks A326517.
For equal sums instead of sizes we have A382429, non-strict blocks A326518.
Normal multiset partitions: A255903, A255906, A317532, A382203, A382204, A382216.
Cf. A000110, A000670, A007716, A034691, A035310, A050320, A050326, A116539, A306319, A381718.

a(n) = Sum_{d|n} A330942(n/d, d).

a(p) = 2^(p-1) + 1 for prime p.

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

Original entry on oeis.org

1, 4, 6, 19, 14, 113, 30, 584, 1150, 4023, 112, 119866, 202, 432061, 5442765, 16646712, 594, 738090160, 980, 13160013662, 113864783987, 39049423043, 2510, 44452496723053, 19373518220009, 21970704599961, 8858890258339122, 43233899006497146, 9130, 4019875470540832643

Offset: 1

Gus Wiseman, Aug 01 2018

nonn

A multiset is strongly normal if it spans an initial interval of positive integers with weakly decreasing multiplicities.

			The a(4) = 19 multiset partitions:
  {{1,1,1,1}}, {{1,1},{1,1}}, {{1},{1},{1},{1}},
  {{1,1,1,2}}, {{1,1},{1,2}}, {{1},{1},{1},{2}},
  {{1,1,2,2}}, {{1,1},{2,2}}, {{1,2},{1,2}}, {{1},{1},{2},{2}},
  {{1,1,2,3}}, {{1,1},{2,3}}, {{1,2},{1,3}}, {{1},{1},{2},{3}},
  {{1,2,3,4}}, {{1,2},{3,4}}, {{1,3},{2,4}}, {{1,4},{2,3}}, {{1},{2},{3},{4}}.

Cf. A000005, A000041, A007716, A038041, A255906, A298422, A306017, A306018, A306019, A306020, A306021, A317583.

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]]]];
strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
Table[Length[Select[Join@@mps/@strnorm[n],SameQ@@Length/@#&]],{n,6}]

\\ See links in A339645 for combinatorial species functions.
cycleIndex(n)={sum(n=1, n, x^n*sumdiv(n, d, sApplyCI(symGroupCycleIndex(d), d, symGroupCycleIndex(n/d), n/d))) + O(x*x^n)}
StronglyNormalLabelingsSeq(cycleIndex(15)) \\ Andrew Howroyd, Jan 01 2021

a(p) = 2*A000041(p) for prime p. - Andrew Howroyd, Jan 01 2021

Terms a(9) and beyond from Andrew Howroyd, Jan 01 2021

A327900 Nonprime squarefree numbers whose prime indices all have the same Omega (number of prime factors counted with multiplicity).

Original entry on oeis.org

1, 15, 33, 51, 55, 85, 91, 93, 123, 155, 161, 165, 177, 187, 201, 203, 205, 249, 255, 295, 299, 301, 327, 329, 335, 341, 377, 381, 415, 451, 465, 471, 511, 527, 537, 545, 553, 559, 561, 573, 611, 615, 633, 635, 649, 667, 679, 697, 703, 707, 723, 737, 785, 831

Offset: 1

Gus Wiseman, Sep 30 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 sequence of terms together with their prime indices begins:
    1: {}
   15: {2,3}
   33: {2,5}
   51: {2,7}
   55: {3,5}
   85: {3,7}
   91: {4,6}
   93: {2,11}
  123: {2,13}
  155: {3,11}
  161: {4,9}
  165: {2,3,5}
  177: {2,17}
  187: {5,7}
  201: {2,19}
  203: {4,10}
  205: {3,13}
  249: {2,23}
  255: {2,3,7}
  295: {3,17}

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

The case including primes and nonsquarefree numbers is A320324.
The version for sum of prime indices is A327901.
The version for mean of prime indices is A327902.
Cf. A001222, A038041, A056239, A078175, A112798, A306017, A306021, A316413, A317583, A322794, A327908.

Select[Range[1000],!PrimeQ[#]&&SquareFreeQ[#]&&SameQ@@PrimeOmega/@PrimePi/@First/@FactorInteger[#]&]

A336138 Number of set partitions of the binary indices of n with distinct block-sums.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 2, 4, 1, 2, 2, 5, 2, 4, 5, 12, 1, 2, 2, 5, 2, 5, 4, 13, 2, 4, 5, 13, 5, 13, 13, 43, 1, 2, 2, 5, 2, 5, 5, 13, 2, 5, 4, 14, 5, 13, 14, 42, 2, 4, 5, 13, 5, 14, 13, 43, 5, 13, 14, 45, 14, 44, 44, 160, 1, 2, 2, 5, 2, 5, 5, 14, 2, 5, 5, 14, 4, 13

Offset: 0

Gus Wiseman, Jul 12 2020

nonn

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

			The a(n) set partitions for n = 3, 7, 11, 15, 23:
  {12}    {123}      {124}      {1234}        {1235}
  {1}{2}  {1}{23}    {1}{24}    {1}{234}      {1}{235}
          {13}{2}    {12}{4}    {12}{34}      {12}{35}
          {1}{2}{3}  {14}{2}    {123}{4}      {123}{5}
                     {1}{2}{4}  {124}{3}      {125}{3}
                                {13}{24}      {13}{25}
                                {134}{2}      {135}{2}
                                {1}{2}{34}    {15}{23}
                                {1}{23}{4}    {1}{2}{35}
                                {1}{24}{3}    {1}{25}{3}
                                {14}{2}{3}    {13}{2}{5}
                                {1}{2}{3}{4}  {15}{2}{3}
                                              {1}{2}{3}{5}

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

The version for twice-partitions is A271619.
The version for partitions of partitions is (also) A271619.
These set partitions are counted by A275780.
The version for factorizations is A321469.
The version for normal multiset partitions is A326519.
The version for equal block-sums is A336137.
Set partitions with distinct block-lengths are A007837.
Set partitions of binary indices are A050315.
Twice-partitions with equal sums are A279787.
Partitions of partitions with equal sums are A305551.
Normal multiset partitions with equal block-lengths are A317583.
Multiset partitions with distinct block-sums are ranked by A326535.
Cf. A000110, A032011, A035470, A131632, A321455, A326026, A326514, A326517, A326518, A326534, A326565.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
Table[Length[Select[sps[bpe[n]],UnsameQ@@Total/@#&]],{n,0,100}]

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A382204 Number of normal multiset partitions of weight n into constant blocks with a common sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A336137 Number of set partitions of the binary indices of n with equal block-sums.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A382429 Number of normal multiset partitions of weight n into sets with a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A382203 Number of normal multiset partitions of weight n into constant multisets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A322785 Number of uniform multiset partitions of uniform multisets of size n whose union is an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A331638 Number of binary matrices with nonzero rows, a total of n ones and each column with the same number of ones and columns in nonincreasing lexicographic order.

Views

Author

Keywords

Comments

Links

Crossrefs

Formula

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

Views

Author

Keywords

Comments

Examples