cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 27 results. Next

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

Views

Author

Gus Wiseman, Mar 21 2025

Keywords

Comments

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

Examples

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

Crossrefs

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.

Programs

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

Formula

Equals A302478 /\ A326535.

A382214 Number of normal multisets of size n that can be partitioned into a set of sets.

Original entry on oeis.org

1, 1, 1, 3, 5, 11, 23, 48, 101, 210, 436, 894
Offset: 0

Views

Author

Gus Wiseman, Mar 29 2025

Keywords

Comments

First differs from A382216 at a(9) = 210, A382216(9) = 208.
We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset {1,1,1,1,2,2,3,3,3} has partition {{1},{3},{1,2},{1,3},{1,2,3}}, so is counted under a(9).
The a(1) = 1 through a(5) = 11 multisets:
  {1}  {1,2}  {1,1,2}  {1,1,2,2}  {1,1,1,2,3}
              {1,2,2}  {1,1,2,3}  {1,1,2,2,3}
              {1,2,3}  {1,2,2,3}  {1,1,2,3,3}
                       {1,2,3,3}  {1,1,2,3,4}
                       {1,2,3,4}  {1,2,2,2,3}
                                  {1,2,2,3,3}
                                  {1,2,2,3,4}
                                  {1,2,3,3,3}
                                  {1,2,3,3,4}
                                  {1,2,3,4,4}
                                  {1,2,3,4,5}
		

Crossrefs

Factorizations of this type are counted by A050326, distinct sums A381633.
Normal multiset partitions of this type are counted by A116539, distinct sums A381718.
The complement is counted by A292432.
Twice-partitions of this type are counted by A358914, distinct sums A279785.
The strong version is A381996, complement A292444.
For integer partitions we have A382077, ranks A382200, complement A382078, ranks A293243.
For distinct sums we have A382216, complement A382202.
The case of a unique choice is counted by A382458, distinct sums A382459.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count factorizations, strict A045778.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.

Programs

  • Mathematica
    allnorm[n_]:=If[n<=0,{{}},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[Select[allnorm[n],Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]!={}&]],{n,0,5}]

A326520 Number of normal multiset partitions of weight n where every part has the same average.

Original entry on oeis.org

1, 1, 3, 7, 17, 35, 103, 197
Offset: 0

Views

Author

Gus Wiseman, Jul 12 2019

Keywords

Comments

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

Examples

			The a(0) = 1 through a(4) = 17 normal multiset partitions where every part has the same average:
  {}  {{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}}
                        {{1},{1,1}}    {{1,2,2,2}}
                        {{2},{1,3}}    {{1,2,2,3}}
                        {{1},{1},{1}}  {{1,2,3,3}}
                                       {{1,2,3,4}}
                                       {{1},{1,1,1}}
                                       {{1,1},{1,1}}
                                       {{1,2},{1,2}}
                                       {{1,3},{2,2}}
                                       {{1,4},{2,3}}
                                       {{2},{1,2,3}}
                                       {{1},{1},{1,1}}
                                       {{2},{2},{1,3}}
                                       {{1},{1},{1},{1}}
		

Crossrefs

Programs

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

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

Views

Author

Gus Wiseman, Jul 12 2019

Keywords

Comments

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

Examples

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

Crossrefs

Programs

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

A381996 Number of non-isomorphic multisets of size n that can be partitioned into a set of sets.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 6, 9, 13, 18, 25, 34, 47
Offset: 0

Views

Author

Gus Wiseman, Mar 31 2025

Keywords

Comments

First differs from A382523 at a(12) = 47, A382523(12) = 45.
We call a multiset non-isomorphic iff it covers an initial interval of positive integers with weakly decreasing multiplicities. The size of a multiset is the number of elements, counting multiplicity.

Examples

			Differs from A382523 in counting the following under a(12):
  {1,1,1,1,1,1,2,2,3,3,4,5} with partition {{1},{1,2},{1,3},{1,4},{1,5},{1,2,3}}
  {1,1,1,1,2,2,2,2,3,3,3,3} with partition {{1},{2},{3},{1,2},{1,3},{2,3},{1,2,3}}
		

Crossrefs

Factorizations of this type are counted by A050326, distinct sums A381633.
Normal multiset partitions of this type are counted by A116539, distinct sums A381718.
The complement is counted by A292444.
Twice-partitions of this type are counted by A358914, distinct sums A279785.
For integer partitions we have A382077, ranks A382200, complement A382078, ranks A293243.
Weak version is A382214, complement A292432, distinct sums A382216, complement A382202.
For distinct sums we have A382523, complement A382430.
Normal multiset partitions: A034691, A035310, A116540, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.

Programs

  • Mathematica
    strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]& /@ IntegerPartitions[n];
    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[strnorm[n], Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]!={}&]], {n,0,5}]

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

Views

Author

Gus Wiseman, Mar 26 2025

Keywords

Comments

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.

Examples

			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
		

Crossrefs

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.

Programs

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

Extensions

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

A382428 Number of normal multiset partitions of weight n into sets with distinct sizes.

Original entry on oeis.org

1, 1, 1, 6, 8, 35, 292, 673, 2818, 16956, 219772, 636748, 3768505, 20309534, 183403268, 3227600747, 12272598308, 81353466578, 561187259734, 4416808925866, 50303004612136, 1238783066956740, 5566249468690291, 44970939483601100, 330144217684933896, 3131452652308459402
Offset: 0

Views

Author

Gus Wiseman, Mar 29 2025

Keywords

Comments

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.

Examples

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

Crossrefs

For distinct sums instead of sizes we have A116539, see A050326.
Without distinct lengths we have A116540 (normal set multipartitions).
Without strict blocks we have A326517, for sum instead of size A326519.
For equal instead of distinct sizes we have A331638.
Twice-partitions of this type are counted by A358830.
For distinct sums instead of sizes we have A381718.
For equal instead of distinct sizes we have A382429.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count factorizations, strict A045778.
Normal multiset partitions: A034691, A035310, A255906.
Set multipartitions: A089259, A270995, A296119, A318360.

Programs

  • Mathematica
    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@@Length/@#&&And@@UnsameQ@@@#&]&/@allnorm[n])],{n,0,5}]
  • PARI
    R(n, k)={Vec(prod(j=1, n, 1 + binomial(k, j)*x^j + O(x*x^n)))}
    seq(n)={sum(k=0, n, R(n, k)*sum(r=k, n, binomial(r, k)*(-1)^(r-k)))} \\ Andrew Howroyd, Mar 31 2025

Extensions

a(10) onwards from Andrew Howroyd, Mar 31 2025

A326572 Number of covering antichains of subsets of {1..n}, all having different sums.

Original entry on oeis.org

2, 1, 2, 8, 80, 3015, 803898
Offset: 0

Views

Author

Gus Wiseman, Jul 18 2019

Keywords

Comments

An antichain is a finite set of finite sets, none of which is a subset of any other. It is covering if its union is {1..n}. The edge-sums are the sums of vertices in each edge, so for example the edge sums of {{1,3},{2,5},{3,4,5}} are {4,7,12}.

Examples

			The a(0) = 2 through a(3) = 8 antichains:
  {}    {{1}}  {{1,2}}    {{1,2,3}}
  {{}}         {{1},{2}}  {{1},{2,3}}
                          {{2},{1,3}}
                          {{1,2},{1,3}}
                          {{1,2},{2,3}}
                          {{1},{2},{3}}
                          {{1,3},{2,3}}
                          {{1,2},{1,3},{2,3}}
The a(4) = 80 antichains:
  {1234}  {1}{234}    {1}{2}{34}     {1}{2}{3}{4}       {12}{13}{14}{24}{34}
          {12}{34}    {1}{3}{24}     {1}{23}{24}{34}    {12}{13}{23}{24}{34}
          {13}{24}    {1}{4}{23}     {2}{13}{14}{34}
          {2}{134}    {2}{3}{14}     {12}{13}{14}{24}
          {3}{124}    {1}{23}{24}    {12}{13}{14}{34}
          {4}{123}    {1}{23}{34}    {12}{13}{23}{24}
          {12}{134}   {1}{24}{34}    {12}{13}{23}{34}
          {12}{234}   {2}{13}{14}    {12}{13}{24}{34}
          {13}{124}   {2}{13}{34}    {12}{14}{24}{34}
          {13}{234}   {2}{14}{34}    {12}{23}{24}{34}
          {14}{123}   {3}{14}{24}    {13}{14}{24}{34}
          {14}{234}   {4}{12}{23}    {13}{23}{24}{34}
          {23}{124}   {12}{13}{14}   {12}{13}{14}{234}
          {23}{134}   {12}{13}{24}   {12}{23}{24}{134}
          {24}{134}   {12}{13}{34}   {123}{124}{134}{234}
          {34}{123}   {12}{14}{34}
          {123}{124}  {12}{23}{24}
          {123}{134}  {12}{23}{34}
          {123}{234}  {12}{24}{34}
          {124}{134}  {13}{14}{24}
          {124}{234}  {13}{23}{24}
          {134}{234}  {13}{23}{34}
                      {13}{24}{34}
                      {14}{24}{34}
                      {12}{13}{234}
                      {12}{14}{234}
                      {12}{23}{134}
                      {12}{24}{134}
                      {13}{14}{234}
                      {13}{23}{124}
                      {14}{34}{123}
                      {23}{24}{134}
                      {12}{134}{234}
                      {13}{124}{234}
                      {14}{123}{234}
                      {23}{124}{134}
                      {123}{124}{134}
                      {123}{124}{234}
                      {123}{134}{234}
                      {124}{134}{234}
		

Crossrefs

Antichain covers are A006126.
Set partitions with different block-sums are A275780.
MM-numbers of multiset partitions with different part-sums are A326535.
Antichain covers with equal edge-sums are A326566.
Antichain covers with different edge-sizes are A326570.
The case without singletons is A326571.
Antichains with equal edge-sums are A326574.

Programs

  • Mathematica
    stableSets[u_,Q_]:=If[Length[u]==0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r==w||Q[r,w]||Q[w,r]],Q]]]];
    cleq[n_]:=Select[stableSets[Subsets[Range[n]],SubsetQ[#1,#2]||Total[#1]==Total[#2]&],Union@@#==Range[n]&];
    Table[Length[cleq[n]],{n,0,5}]

A382202 Number of normal multisets of size n that cannot be partitioned into a set of sets with distinct sums.

Original entry on oeis.org

0, 0, 1, 1, 3, 5, 9, 16, 27, 48, 78, 133
Offset: 0

Views

Author

Gus Wiseman, Mar 29 2025

Keywords

Comments

First differs from A292432 at a(9) = 48, A292432(9) = 46.
We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

Examples

			The normal multiset m = {1,1,1,2,2} has 3 partitions into a set of sets:
  {{1},{1,2},{1,2}}
  {{1},{1},{2},{1,2}}
  {{1},{1},{1},{2},{2}}
but none of these has distinct block-sums, so m is counted under a(5).
The a(2) = 1 through a(6) = 9 normal multisets:
  {1,1}  {1,1,1}  {1,1,1,1}  {1,1,1,1,1}  {1,1,1,1,1,1}
                  {1,1,1,2}  {1,1,1,1,2}  {1,1,1,1,1,2}
                  {1,2,2,2}  {1,1,1,2,2}  {1,1,1,1,2,2}
                             {1,1,2,2,2}  {1,1,1,1,2,3}
                             {1,2,2,2,2}  {1,1,1,2,2,2}
                                          {1,1,2,2,2,2}
                                          {1,2,2,2,2,2}
                                          {1,2,2,2,2,3}
                                          {1,2,3,3,3,3}
		

Crossrefs

Twice-partitions of this type are counted by A279785, without distinct sums A358914.
Without distinct sums we have A292432, complement A382214.
The strongly normal version without distinct sums is A292444, complement A381996.
Factorizations of this type are counted by A381633, without distinct sums A050326.
Normal multiset partitions of this type are counted by A381718, without distinct sums A116539.
For integer partitions the complement is A381990, ranks A381806, without distinct sums A382078, ranks A293243.
For integer partitions we have A381992, ranks A382075, without distinct sums A382077, ranks A382200.
The complement is counted by A382216.
The strongly normal version is A382430, complement A382460.
The case of a unique choice is counted by A382459, without distinct sums A382458.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count factorizations, strict A045778.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.

Programs

  • Mathematica
    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[Select[allnorm[n],Length[Select[mps[#],And@@UnsameQ@@@#&&UnsameQ@@Total/@#&]]==0&]],{n,0,5}]

A326571 Number of covering antichains of nonempty, non-singleton subsets of {1..n}, all having different sums.

Original entry on oeis.org

1, 0, 1, 5, 61, 2721, 788221
Offset: 0

Views

Author

Gus Wiseman, Jul 18 2019

Keywords

Comments

An antichain is a finite set of finite sets, none of which is a subset of any other. It is covering if its union is {1..n}. The edge-sums are the sums of vertices in each edge, so for example the edge sums of {{1,3},{2,5},{3,4,5}} are {4,7,12}.

Examples

			The a(3) = 5 antichains:
  {{1,2,3}}
  {{1,3},{2,3}}
  {{1,2},{2,3}}
  {{1,2},{1,3}}
  {{1,2},{1,3},{2,3}}
The a(4) = 61 antichains:
  {1234}  {12}{34}    {12}{13}{14}   {12}{13}{14}{24}   {12}{13}{14}{24}{34}
          {13}{24}    {12}{13}{24}   {12}{13}{14}{34}   {12}{13}{23}{24}{34}
          {12}{134}   {12}{13}{34}   {12}{13}{23}{24}
          {12}{234}   {12}{14}{34}   {12}{13}{23}{34}
          {13}{124}   {12}{23}{24}   {12}{13}{24}{34}
          {13}{234}   {12}{23}{34}   {12}{14}{24}{34}
          {14}{123}   {12}{24}{34}   {12}{23}{24}{34}
          {14}{234}   {13}{14}{24}   {13}{14}{24}{34}
          {23}{124}   {13}{23}{24}   {13}{23}{24}{34}
          {23}{134}   {13}{23}{34}   {12}{13}{14}{234}
          {24}{134}   {13}{24}{34}   {12}{23}{24}{134}
          {34}{123}   {14}{24}{34}   {123}{124}{134}{234}
          {123}{124}  {12}{13}{234}
          {123}{134}  {12}{14}{234}
          {123}{234}  {12}{23}{134}
          {124}{134}  {12}{24}{134}
          {124}{234}  {13}{14}{234}
          {134}{234}  {13}{23}{124}
                      {14}{34}{123}
                      {23}{24}{134}
                      {12}{134}{234}
                      {13}{124}{234}
                      {14}{123}{234}
                      {23}{124}{134}
                      {123}{124}{134}
                      {123}{124}{234}
                      {123}{134}{234}
                      {124}{134}{234}
		

Crossrefs

Antichain covers are A006126.
Set partitions with different block-sums are A275780.
MM-numbers of multiset partitions with different part-sums are A326535.
Antichain covers with equal edge-sums and no singletons are A326565.
Antichain covers with different edge-sizes and no singletons are A326569.
The case with singletons allowed is A326572.
Antichains with equal edge-sums are A326574.

Programs

  • Mathematica
    stableSets[u_,Q_]:=If[Length[u]==0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r==w||Q[r,w]||Q[w,r]],Q]]]];
    cleq[n_]:=Select[stableSets[Subsets[Range[n],{2,n}],SubsetQ[#1,#2]||Total[#1]==Total[#2]&],Union@@#==Range[n]&];
    Table[Length[cleq[n]],{n,0,5}]
Previous Showing 11-20 of 27 results. Next