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.

Showing 1-2 of 2 results.

A326901 Number of set-systems (without {}) on n vertices that are closed under intersection.

Original entry on oeis.org

1, 2, 6, 32, 418, 23702, 16554476, 1063574497050, 225402367516942398102
Offset: 0

Views

Author

Gus Wiseman, Aug 04 2019

Keywords

Comments

A set-system is a finite set of finite nonempty sets, so no two edges of a set-system that is closed under intersection can be disjoint.

Examples

			The a(3) = 32 set-systems:
  {}  {{1}}    {{1}{12}}    {{1}{12}{13}}   {{1}{12}{13}{123}}
      {{2}}    {{1}{13}}    {{2}{12}{23}}   {{2}{12}{23}{123}}
      {{3}}    {{2}{12}}    {{3}{13}{23}}   {{3}{13}{23}{123}}
      {{12}}   {{2}{23}}    {{1}{12}{123}}
      {{13}}   {{3}{13}}    {{1}{13}{123}}
      {{23}}   {{3}{23}}    {{2}{12}{123}}
      {{123}}  {{1}{123}}   {{2}{23}{123}}
               {{2}{123}}   {{3}{13}{123}}
               {{3}{123}}   {{3}{23}{123}}
               {{12}{123}}
               {{13}{123}}
               {{23}{123}}
		

Crossrefs

The case with union instead of intersection is A102896.
The case closed under union and intersection is A326900.
The covering case is A326902.
The connected case is A326903.
The unlabeled version is A326904.
The BII-numbers of these set-systems are A326905.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],SubsetQ[#,Intersection@@@Tuples[#,2]]&]],{n,0,3}]

Formula

a(n) = 1 + Sum_{k=0, n-1} binomial(n,k)*A102895(k). - Andrew Howroyd, Aug 10 2019

Extensions

a(5)-a(8) from Andrew Howroyd, Aug 10 2019

A309615 Number of T_0 set-systems covering n vertices that are closed under intersection.

Original entry on oeis.org

1, 1, 2, 12, 232, 19230, 16113300, 1063117943398, 225402329237199496416
Offset: 0

Views

Author

Gus Wiseman, Aug 11 2019

Keywords

Comments

First differs from A182507 at a(5) = 19230, A182507(5) = 12848.
A set-system is a finite set of finite nonempty sets. The dual of a set-system has, for each vertex, one edge consisting of the indices (or positions) of the edges containing that vertex. For example, the dual of {{1,2},{2,3}} is {{1},{1,2},{2}}. The T_0 condition means that the dual is strict (no repeated edges).

Examples

			The a(0) = 1 through a(3) = 12 set-systems:
  {}  {{1}}  {{1},{1,2}}  {{1},{1,2},{1,3}}
             {{2},{1,2}}  {{2},{1,2},{2,3}}
                          {{3},{1,3},{2,3}}
                          {{1},{1,2},{1,2,3}}
                          {{1},{1,3},{1,2,3}}
                          {{2},{1,2},{1,2,3}}
                          {{2},{2,3},{1,2,3}}
                          {{3},{1,3},{1,2,3}}
                          {{3},{2,3},{1,2,3}}
                          {{1},{1,2},{1,3},{1,2,3}}
                          {{2},{1,2},{2,3},{1,2,3}}
                          {{3},{1,3},{2,3},{1,2,3}}
		

Crossrefs

The version with empty edges allowed is A326943.

Programs

  • Mathematica
    dual[eds_]:=Table[First/@Position[eds,x],{x,Union@@eds}];
    Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],Union@@#==Range[n]&&UnsameQ@@dual[#]&&SubsetQ[#,Intersection@@@Tuples[#,2]]&]],{n,0,3}]

Formula

a(n) = A326943(n) - A326944(n).
a(n) = Sum_{k = 1..n} s(n,k) * A326901(k - 1) where s = A048994.
a(n) = Sum_{k = 1..n} s(n,k) * A326902(k) where s = A048994.
Showing 1-2 of 2 results.