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 32 results. Next

A306505 Number of non-isomorphic antichains of nonempty subsets of {1,...,n}.

Original entry on oeis.org

1, 2, 4, 9, 29, 209, 16352, 490013147, 1392195548889993357, 789204635842035040527740846300252679
Offset: 0

Views

Author

Gus Wiseman, Feb 20 2019

Keywords

Comments

The spanning case is A006602 or A261005. The labeled case is A014466.
From Petros Hadjicostas, Apr 22 2020: (Start)
a(n) is the number of "types" of log-linear hierarchical models on n factors in the sense of Colin Mallows (see the emails to N. J. A. Sloane).
Two hierarchical models on n factors belong to the same "type" iff one can obtained from the other by a permutation of the factors.
The total number of hierarchical log-linear models on n factors (in all "types") is given by A014466(n) = A000372(n) - 1.
The name of a hierarchical log-linear model on factors is based on the collection of maximal interaction terms, which must be an antichain (by the definition of maximality).
In his example on p. 1, Colin Mallows groups the A014466(3) = 19 hierarchical log-linear models on n = 3 factors x, y, z into a(3) = 9 types. See my example below for more details. (End)
First differs from A348260(n + 1) - 1 at a(5) = 209, A348260(6) - 1 = 232. - Gus Wiseman, Nov 28 2021

Examples

			Non-isomorphic representatives of the a(0) = 1 through a(3) = 9 antichains:
  {}  {}     {}         {}
      {{1}}  {{1}}      {{1}}
             {{1,2}}    {{1,2}}
             {{1},{2}}  {{1},{2}}
                        {{1,2,3}}
                        {{1},{2,3}}
                        {{1},{2},{3}}
                        {{1,3},{2,3}}
                        {{1,2},{1,3},{2,3}}
From _Petros Hadjicostas_, Apr 23 2020: (Start)
We expand _Colin Mallows_'s example from p. 1 of his list of 1991 emails. For n = 3, we have the following a(3) = 9 "types" of log-linear hierarchical models:
Type 1: ( ), Type 2: (x), (y), (z), Type 3: (x,y), (y,z), (z,x), Type 4: (x,y,z), Type 5: (xy), (yz), (zx), Type 6: (xy,z), (yz,x), (zx,y), Type 7: (xy,xz), (yx,yz), (zx,zy), Type 8: (xy,yz,zx), Type 9: (xyz).
For each model, the name only contains the maximal terms. See p. 36 in Wickramasinghe (2008) for the full description of the 19 models.
Strictly speaking, I should have used set notation (rather than parentheses) for the name of each model, but I follow the tradition of the theory of log-linear models. In addition, in an interaction term such as xy, the order of the factors is irrelevant.
Models in the same type essentially have similar statistical properties.
For example, models in Type 7 have the property that two factors are conditionally independent of one another given each level (= category) of the third factor.
Models in Type 6 are such that two factors are jointly independent from the third one. (End)
		

Crossrefs

Formula

a(n) = A003182(n) - 1.
Partial sums of A006602 minus 1.

Extensions

a(8) from A003182. - Bartlomiej Pawelski, Nov 27 2022
a(9) from A003182. - Dmitry I. Ignatov, Nov 27 2023

A327351 Triangle read by rows where T(n,k) is the number of antichains of nonempty sets covering n vertices with vertex-connectivity exactly k.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 4, 3, 2, 0, 30, 40, 27, 17, 0, 546, 1365, 1842, 1690, 1451, 0, 41334
Offset: 0

Views

Author

Gus Wiseman, Sep 09 2019

Keywords

Comments

An antichain is a set of sets, none of which is a subset of any other. It is covering if there are no isolated vertices.
The vertex-connectivity of a set-system is the minimum number of vertices that must be removed (along with any empty or duplicate edges) to obtain a non-connected set-system or singleton. Note that this means a single node has vertex-connectivity 0.
If empty edges are allowed, we have T(0,0) = 2.

Examples

			Triangle begins:
    1
    1    0
    1    1    0
    4    3    2    0
   30   40   27   17    0
  546 1365 1842 1690 1451    0
		

Crossrefs

Row sums are A307249, or A006126 if empty edges are allowed.
Column k = 0 is A120338, if we assume A120338(0) = A120338(1) = 1.
Column k = 1 is A327356.
Column k = n - 1 is A327020.
The unlabeled version is A327359.
The version for vertex-connectivity >= k is A327350.
The version for spanning edge-connectivity is A327352.
The version for non-spanning edge-connectivity is A327353, with covering case A327357.

Programs

  • Mathematica
    csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],Length[Intersection@@s[[#]]]>0&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    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]]]];
    vertConnSys[vts_,eds_]:=Min@@Length/@Select[Subsets[vts],Function[del,Length[del]==Length[vts]-1||csm[DeleteCases[DeleteCases[eds,Alternatives@@del,{2}],{}]]!={Complement[vts,del]}]]
    Table[Length[Select[stableSets[Subsets[Range[n],{1,n}],SubsetQ],Union@@#==Range[n]&&vertConnSys[Range[n],#]==k&]],{n,0,4},{k,0,n}]

Extensions

a(21) from Robert Price, May 28 2021

A326360 Number of maximal antichains of nonempty, non-singleton subsets of {1..n}.

Original entry on oeis.org

1, 1, 1, 2, 13, 279, 29820, 123590767
Offset: 0

Views

Author

Gus Wiseman, Jul 01 2019

Keywords

Comments

A set system (set of sets) is an antichain if no element is a subset of any other.

Examples

			The a(1) = 1 through a(4) = 13 maximal antichains:
  {}  {12}  {123}         {1234}
            {12}{13}{23}  {12}{134}{234}
                          {13}{124}{234}
                          {14}{123}{234}
                          {23}{124}{134}
                          {24}{123}{134}
                          {34}{123}{124}
                          {12}{13}{14}{234}
                          {12}{23}{24}{134}
                          {13}{23}{34}{124}
                          {14}{24}{34}{123}
                          {123}{124}{134}{234}
                          {12}{13}{14}{23}{24}{34}
		

Crossrefs

Antichains of nonempty, non-singleton sets are A307249.
Minimal covering antichains are A046165.
Maximal intersecting antichains are A007363.
Maximal antichains of nonempty sets are A326359.

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]]]];
    fasmax[y_]:=Complement[y,Union@@(Most[Subsets[#]]&/@y)];
    Table[Length[fasmax[stableSets[Subsets[Range[n],{2,n}],SubsetQ]]],{n,0,4}]
  • Python
    # see Ignatov links
    # Dmitry I. Ignatov, Oct 14 2021

Formula

a(n) = Sum_{k=0..n} (-1)^(n-k)*binomial(n,k)*A326359(k) for n >= 2. - Andrew Howroyd, Nov 19 2021

Extensions

a(6) from Andrew Howroyd, Aug 14 2019
a(7) from Dmitry I. Ignatov, Oct 14 2021

A326565 Number of covering antichains of nonempty, non-singleton subsets of {1..n}, all having the same sum.

Original entry on oeis.org

1, 0, 1, 1, 4, 13, 91, 1318, 73581, 51913025
Offset: 0

Views

Author

Gus Wiseman, Jul 13 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(2) = 1 through a(5) = 13 antichains:
  {{1,2}}  {{1,2,3}}  {{1,2,3,4}}      {{1,2,3,4,5}}
                      {{1,4},{2,3}}    {{1,2,5},{1,3,4}}
                      {{2,4},{1,2,3}}  {{1,3,5},{2,3,4}}
                      {{3,4},{1,2,4}}  {{1,4,5},{2,3,5}}
                                       {{1,4,5},{1,2,3,4}}
                                       {{2,3,5},{1,2,3,4}}
                                       {{2,4,5},{1,2,3,5}}
                                       {{3,4,5},{1,2,4,5}}
                                       {{1,5},{2,4},{1,2,3}}
                                       {{2,5},{3,4},{1,2,4}}
                                       {{3,5},{1,2,5},{1,3,4}}
                                       {{4,5},{1,3,5},{2,3,4}}
                                       {{1,4,5},{2,3,5},{1,2,3,4}}
		

Crossrefs

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

Extensions

a(9) from Andrew Howroyd, Aug 14 2019

A326566 Number of covering antichains of subsets of {1..n} with equal edge-sums.

Original entry on oeis.org

2, 1, 1, 2, 4, 14, 92, 1320, 73584, 51913039
Offset: 0

Views

Author

Gus Wiseman, Jul 13 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(1) = 1 through a(5) = 14 antichains:
  {{1}}  {{1,2}}  {{1,2,3}}    {{1,2,3,4}}      {{1,2,3,4,5}}
                  {{3},{1,2}}  {{1,4},{2,3}}    {{1,2,5},{1,3,4}}
                               {{2,4},{1,2,3}}  {{1,3,5},{2,3,4}}
                               {{3,4},{1,2,4}}  {{1,4,5},{2,3,5}}
                                                {{5},{1,4},{2,3}}
                                                {{1,4,5},{1,2,3,4}}
                                                {{2,3,5},{1,2,3,4}}
                                                {{2,4,5},{1,2,3,5}}
                                                {{3,4,5},{1,2,4,5}}
                                                {{1,5},{2,4},{1,2,3}}
                                                {{2,5},{3,4},{1,2,4}}
                                                {{3,5},{1,2,5},{1,3,4}}
                                                {{4,5},{1,3,5},{2,3,4}}
                                                {{1,4,5},{2,3,5},{1,2,3,4}}
		

Crossrefs

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

Extensions

a(9) from Andrew Howroyd, Aug 14 2019

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

A327350 Triangle read by rows where T(n,k) is the number of antichains of nonempty sets covering n vertices with vertex-connectivity >= k.

Original entry on oeis.org

1, 1, 0, 2, 1, 0, 9, 5, 2, 0, 114, 84, 44, 17, 0, 6894, 6348, 4983, 3141, 1451, 0, 7785062
Offset: 0

Views

Author

Gus Wiseman, Sep 09 2019

Keywords

Comments

An antichain is a set of sets, none of which is a subset of any other. It is covering if there are no isolated vertices.
The vertex-connectivity of a set-system is the minimum number of vertices that must be removed (along with any empty or duplicate edges) to obtain a non-connected set-system or singleton. Note that this means a single node has vertex-connectivity 0.
If empty edges are allowed, we have T(0,0) = 2.

Examples

			Triangle begins:
     1
     1    0
     2    1    0
     9    5    2    0
   114   84   44   17    0
  6894 6348 4983 3141 1451    0
The antichains counted in row n = 3:
  {123}         {123}         {123}
  {1}{23}       {12}{13}      {12}{13}{23}
  {2}{13}       {12}{23}
  {3}{12}       {13}{23}
  {12}{13}      {12}{13}{23}
  {12}{23}
  {13}{23}
  {1}{2}{3}
  {12}{13}{23}
		

Crossrefs

Column k = 0 is A307249, or A006126 if empty edges are allowed.
Column k = 1 is A048143 (clutters), if we assume A048143(0) = A048143(1) = 0.
Column k = 2 is A275307 (blobs), if we assume A275307(1) = A275307(2) = 0.
Column k = n - 1 is A327020 (cointersecting antichains).
The unlabeled version is A327358.
Negated first differences of rows are A327351.
BII-numbers of antichains are A326704.
Antichain covers are A006126.

Programs

  • Mathematica
    csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],Length[Intersection@@s[[#]]]>0&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    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]]]];
    vertConnSys[vts_,eds_]:=Min@@Length/@Select[Subsets[vts],Function[del,Length[del]==Length[vts]-1||csm[DeleteCases[DeleteCases[eds,Alternatives@@del,{2}],{}]]!={Complement[vts,del]}]];
    Table[Length[Select[stableSets[Subsets[Range[n],{1,n}],SubsetQ],Union@@#==Range[n]&&vertConnSys[Range[n],#]>=k&]],{n,0,4},{k,0,n}]

Extensions

a(21) from Robert Price, May 24 2021

A327353 Irregular triangle read by rows with trailing zeros removed where T(n,k) is the number of antichains of subsets of {1..n} with non-spanning edge-connectivity k.

Original entry on oeis.org

1, 1, 1, 2, 3, 8, 7, 3, 1, 53, 27, 45, 36, 6, 747, 511, 1497, 2085, 1540, 693, 316, 135, 45, 10, 1
Offset: 0

Views

Author

Gus Wiseman, Sep 10 2019

Keywords

Comments

An antichain is a set of sets, none of which is a subset of any other.
The non-spanning edge-connectivity of a set-system is the minimum number of edges that must be removed (along with any non-covered vertices) to obtain a disconnected or empty set-system.

Examples

			Triangle begins:
    1
    1    1
    2    3
    8    7    3    1
   53   27   45   36    6
  747  511 1497 2085 1540  693  316  135   45   10    1
Row n = 3 counts the following antichains:
  {}             {{1}}      {{1,2},{1,3}}  {{1,2},{1,3},{2,3}}
  {{1},{2}}      {{2}}      {{1,2},{2,3}}
  {{1},{3}}      {{3}}      {{1,3},{2,3}}
  {{2},{3}}      {{1,2}}
  {{1},{2,3}}    {{1,3}}
  {{2},{1,3}}    {{2,3}}
  {{3},{1,2}}    {{1,2,3}}
  {{1},{2},{3}}
		

Crossrefs

Row sums are A014466.
Column k = 0 is A327354.
The covering case is A327357.
The version for spanning edge-connectivity is A327352.
The specialization to simple graphs is A327148, with covering case A327149, unlabeled version A327236, and unlabeled covering case A327201.

Programs

  • Mathematica
    csm[s_]:=With[{c=Select[Subsets[Range[Length[s]],{2}],Length[Intersection@@s[[#]]]>0&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    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]]]];
    eConn[sys_]:=If[Length[csm[sys]]!=1,0,Length[sys]-Max@@Length/@Select[Union[Subsets[sys]],Length[csm[#]]!=1&]];
    Table[Length[Select[stableSets[Subsets[Range[n],{1,n}],SubsetQ],eConn[#]==k&]],{n,0,4},{k,0,2^n}]//.{foe___,0}:>{foe}

A326574 Number of antichains of subsets of {1..n} with equal edge-sums.

Original entry on oeis.org

2, 3, 5, 10, 22, 61, 247, 2096, 81896, 52260575
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. 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(4) = 22 antichains:
  {}    {}     {}       {}           {}
  {{}}  {{}}   {{}}     {{}}         {{}}
        {{1}}  {{1}}    {{1}}        {{1}}
               {{2}}    {{2}}        {{2}}
               {{1,2}}  {{3}}        {{3}}
                        {{1,2}}      {{4}}
                        {{1,3}}      {{1,2}}
                        {{2,3}}      {{1,3}}
                        {{1,2,3}}    {{1,4}}
                        {{3},{1,2}}  {{2,3}}
                                     {{2,4}}
                                     {{3,4}}
                                     {{1,2,3}}
                                     {{1,2,4}}
                                     {{1,3,4}}
                                     {{2,3,4}}
                                     {{1,2,3,4}}
                                     {{3},{1,2}}
                                     {{4},{1,3}}
                                     {{1,4},{2,3}}
                                     {{2,4},{1,2,3}}
                                     {{3,4},{1,2,4}}
		

Crossrefs

Set partitions with equal block-sums are A035470.
Antichains with different edge-sums are A326030.
MM-numbers of multiset partitions with equal part-sums are A326534.
The covering case is A326566.

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]]]];
    cleqset[set_]:=stableSets[Subsets[set],SubsetQ[#1,#2]||Total[#1]!=Total[#2]&];
    Table[Length[cleqset[Range[n]]],{n,0,5}]

Extensions

a(9) from Andrew Howroyd, Aug 13 2019

A326365 Number of intersecting antichains with empty intersection (meaning there is no vertex in common to all the edges) covering n vertices.

Original entry on oeis.org

1, 0, 0, 1, 23, 1834, 1367903, 229745722873, 423295077919493525420
Offset: 0

Views

Author

Gus Wiseman, Jul 01 2019

Keywords

Comments

Covering means there are no isolated vertices. A set system (set of sets) is an antichain if no part is a subset of any other, and is intersecting if no two parts are disjoint.

Examples

			The a(4) = 23 intersecting antichains with empty intersection:
  {{1,2},{1,3},{2,3,4}}
  {{1,2},{1,4},{2,3,4}}
  {{1,2},{2,3},{1,3,4}}
  {{1,2},{2,4},{1,3,4}}
  {{1,3},{1,4},{2,3,4}}
  {{1,3},{2,3},{1,2,4}}
  {{1,3},{3,4},{1,2,4}}
  {{1,4},{2,4},{1,2,3}}
  {{1,4},{3,4},{1,2,3}}
  {{2,3},{2,4},{1,3,4}}
  {{2,3},{3,4},{1,2,4}}
  {{2,4},{3,4},{1,2,3}}
  {{1,2},{1,3,4},{2,3,4}}
  {{1,3},{1,2,4},{2,3,4}}
  {{1,4},{1,2,3},{2,3,4}}
  {{2,3},{1,2,4},{1,3,4}}
  {{2,4},{1,2,3},{1,3,4}}
  {{3,4},{1,2,3},{1,2,4}}
  {{1,2},{1,3},{1,4},{2,3,4}}
  {{1,2},{2,3},{2,4},{1,3,4}}
  {{1,3},{2,3},{3,4},{1,2,4}}
  {{1,4},{2,4},{3,4},{1,2,3}}
  {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
		

Crossrefs

Intersecting antichain covers are A305844.
Intersecting covers with empty intersection are A326364.
Antichain covers with empty intersection are A305001.
The binomial transform is the non-covering case A326366.
Covering, intersecting antichains with empty intersection are A326365.

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]]]];
    Table[Length[Select[stableSets[Subsets[Range[n],{1,n}],Or[Intersection[#1,#2]=={},SubsetQ[#1,#2]]&],And[Union@@#==Range[n],#=={}||Intersection@@#=={}]&]],{n,0,4}]

Extensions

a(7)-a(8) from Andrew Howroyd, Aug 14 2019
Previous Showing 11-20 of 32 results. Next