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-10 of 23 results. Next

A000798 Number of different quasi-orders (or topologies, or transitive digraphs) with n labeled elements.

Original entry on oeis.org

1, 1, 4, 29, 355, 6942, 209527, 9535241, 642779354, 63260289423, 8977053873043, 1816846038736192, 519355571065774021, 207881393656668953041, 115617051977054267807460, 88736269118586244492485121, 93411113411710039565210494095, 134137950093337880672321868725846, 261492535743634374805066126901117203
Offset: 0

Views

Author

Keywords

Comments

From Altug Alkan, Dec 18 2015 and Feb 28 2017: (Start)
a(p^k) == k+1 (mod p) for all primes p. This is proved by Kizmaz at On The Number Of Topologies On A Finite Set link. For proof see Theorem 2.4 in page 2 and 3. So a(19) == 2 (mod 19).
a(p+n) == A265042(n) (mod p) for all primes p. This is also proved by Kizmaz at related link, see Theorem 2.7 in page 4. If n=2 and p=17, a(17+2) == A265042(2) (mod 17), that is a(19) == 51 (mod 17). So a(19) is divisible by 17.
In conclusion, a(19) is a number of the form 323*n - 17. (End)
The BII-numbers of finite topologies without their empty set are given by A326876. - Gus Wiseman, Aug 01 2019
From Tian Vlasic, Feb 23 2022: (Start)
Although no general formula is known for a(n), by considering the number of topologies with a fixed number of open sets, it is possible to explicitly represent the sequence in terms of Stirling numbers of the second kind.
For example: a(n,3) = 2*S(n,2), a(n,4) = S(n,2) + 6*S(n,3), a(n,5) = 6*S(n,3) + 24*S(n,4).
Lower and upper bounds are known: 2^n <= a(n) <= 2^(n*(n-1)), n > 1.
This follows from the fact that there are 2^(n*(n-1)) reflexive relations on a set with n elements.
Furthermore: a(n+1) <= a(n)*(3a(n)+1). (End)

Examples

			From _Gus Wiseman_, Aug 01 2019: (Start)
The a(3) = 29 topologies are the following (empty sets not shown):
  {123}  {1}{123}   {1}{12}{123}  {1}{2}{12}{123}   {1}{2}{12}{13}{123}
         {2}{123}   {1}{13}{123}  {1}{3}{13}{123}   {1}{2}{12}{23}{123}
         {3}{123}   {1}{23}{123}  {2}{3}{23}{123}   {1}{3}{12}{13}{123}
         {12}{123}  {2}{12}{123}  {1}{12}{13}{123}  {1}{3}{13}{23}{123}
         {13}{123}  {2}{13}{123}  {2}{12}{23}{123}  {2}{3}{12}{23}{123}
         {23}{123}  {2}{23}{123}  {3}{13}{23}{123}  {2}{3}{13}{23}{123}
                    {3}{12}{123}
                    {3}{13}{123}        {1}{2}{3}{12}{13}{23}{123}
                    {3}{23}{123}
(End)
		

References

  • K. K.-H. Butler and G. Markowsky, Enumeration of finite topologies, Proc. 4th S-E Conf. Combin., Graph Theory, Computing, Congress. Numer. 8 (1973), 169-184.
  • S. D. Chatterji, The number of topologies on n points, Manuscript, 1966.
  • L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 229.
  • E. D. Cooper, Representation and generation of finite partially ordered sets, Manuscript, no date.
  • E. N. Gilbert, A catalog of partially ordered systems, unpublished memorandum, Aug 08, 1961.
  • F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 243.
  • Levinson, H.; Silverman, R. Topologies on finite sets. II. Proceedings of the Tenth Southeastern Conference on Combinatorics, Graph Theory and Computing (Florida Atlantic Univ., Boca Raton, Fla., 1979), pp. 699--712, Congress. Numer., XXIII-XXIV, Utilitas Math., Winnipeg, Man., 1979. MR0561090 (81c:54006)
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • For further references concerning the enumeration of topologies and posets see under A001035.
  • G.H. Patil and M.S. Chaudhary, A recursive determination of topologies on finite sets, Indian Journal of Pure and Applied Mathematics, 26, No. 2 (1995), 143-148.

Crossrefs

Row sums of A326882.
Cf. A001035 (labeled posets), A001930 (unlabeled topologies), A000112 (unlabeled posets), A006057.
Sequences in the Erné (1974) paper: A000798, A001035, A006056, A006057, A001929, A001927, A006058, A006059, A000110.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],Union@@#==Range[n]&&SubsetQ[#,Union[Union@@@Tuples[#,2],DeleteCases[Intersection@@@Tuples[#,2],{}]]]&]],{n,0,3}] (* Gus Wiseman, Aug 01 2019 *)

Formula

a(n) = Sum_{k=0..n} Stirling2(n, k)*A001035(k).
E.g.f.: A(exp(x) - 1) where A(x) is the e.g.f. for A001035. - Geoffrey Critzer, Jul 28 2014
It is known that log_2(a(n)) ~ n^2/4. - Tian Vlasic, Feb 23 2022

Extensions

Two more terms from Jobst Heitzig (heitzig(AT)math.uni-hannover.de), Jul 03 2000
a(17)-a(18) are from Brinkmann's and McKay's paper. - Vladeta Jovovic, Jun 10 2007

A102896 Number of ACI algebras (or semilattices) on n generators with no annihilator.

Original entry on oeis.org

1, 2, 7, 61, 2480, 1385552, 75973751474, 14087648235707352472
Offset: 0

Views

Author

Mitch Harris, Jan 18 2005

Keywords

Comments

Or, number of Moore families on an n-set, that is, families of subsets that contain the universal set {1,...,n} and are closed under intersection.
Or, number of closure operators on a set of n elements.
An ACI algebra or semilattice is a system with a single binary, idempotent, commutative and associative operation.
Also the number of set-systems on n vertices that are closed under union. The BII-numbers of these set-systems are given by A326875. - Gus Wiseman, Jul 31 2019
From Bernhard Ganter, Jul 08 2025: (Start)
Also the number of union-free families of subsets of an n-set; i.e., families of nonempty sets on n elements such that no set is a union of some others.
Also the number of intersection-free families of subsets of an n-set; i.e., of families of proper subsets on n elements such that no set is an intersection of some others.
(Note that every union-free family on an n-set is the set of union-irreducible elements of exactly one union-closed family, and each family of union-irreducible elements is union-free. Same for intersection.) (End)

Examples

			From _Gus Wiseman_, Jul 31 2019: (Start)
The a(0) = 1 through a(2) = 7 set-systems closed under union:
  {}  {}     {}
      {{1}}  {{1}}
             {{2}}
             {{1,2}}
             {{1},{1,2}}
             {{2},{1,2}}
             {{1},{2},{1,2}}
(End)
		

References

  • G. Birkhoff, Lattice Theory. American Mathematical Society, Colloquium Publications, Vol. 25, 3rd ed., Providence, RI, 1967.
  • Maria Paola Bonacina and Nachum Dershowitz, Canonical Inference for Implicational Systems, in Automated Reasoning, Lecture Notes in Computer Science, Volume 5195/2008, Springer-Verlag.
  • P. Colomb, A. Irlande and O. Raynaud, Counting of Moore Families for n=7, International Conference on Formal Concept Analysis (2010). [From Pierre Colomb (pierre(AT)colomb.me), Sep 04 2010]
  • E. H. Moore, Introduction to a Form of General Analysis, AMS Colloquium Publication 2 (1910), pp. 53-80.

Crossrefs

For set-systems closed under union:
- The covering case is A102894.
- The unlabeled case is A193674.
- The case also closed under intersection is A306445.
- Set-systems closed under overlapping union are A326866.
- The BII-numbers of these set-systems are given by A326875.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],SubsetQ[#,Union@@@Tuples[#,2]]&]],{n,0,3}] (* Gus Wiseman, Jul 31 2019 *)

Formula

a(n) = Sum_{k=0..n} C(n, k)*A102894(k), where C(n, k) is the binomial coefficient.
For asymptotics see A102897.
a(n) = A102897(n)/2. - Gus Wiseman, Jul 31 2019

Extensions

N. J. A. Sloane added a(6) from the Habib et al. reference, May 26 2005
Additional comments from Don Knuth, Jul 01 2005
a(7) from Pierre Colomb (pierre(AT)colomb.me), Sep 04 2010

A001930 Number of topologies, or transitive digraphs with n unlabeled nodes.

Original entry on oeis.org

1, 1, 3, 9, 33, 139, 718, 4535, 35979, 363083, 4717687, 79501654, 1744252509, 49872339897, 1856792610995, 89847422244493, 5637294117525695
Offset: 0

Views

Author

Keywords

Examples

			From _Gus Wiseman_, Aug 02 2019: (Start)
Non-isomorphic representatives of the a(0) = 1 through a(3) = 9 topologies:
  {}  {}{1}  {}{12}        {}{123}
             {}{2}{12}     {}{3}{123}
             {}{1}{2}{12}  {}{23}{123}
                           {}{1}{23}{123}
                           {}{3}{23}{123}
                           {}{2}{3}{23}{123}
                           {}{3}{13}{23}{123}
                           {}{2}{3}{13}{23}{123}
                           {}{1}{2}{3}{12}{13}{23}{123}
(End)
		

References

  • Loic Foissy, Claudia Malvenuto, Frederic Patras, Infinitesimal and B_infinity-algebras, finite spaces, and quasi-symmetric functions, Journal of Pure and Applied Algebra, Elsevier, 2016, 220 (6), pp. 2434-2458. .
  • F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 218 (but the last entry is wrong).
  • M. Kolli, On the cardinality of the T_0-topologies on a finite set, Preprint, 2014.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • J. A. Wright, There are 718 6-point topologies, quasi-orderings and transgraphs, Notices Amer. Math. Soc., 17 (1970), p. 646, Abstract #70T-A106.
  • J. A. Wright, personal communication.
  • For further references concerning the enumeration of topologies and posets see under A000112 and A001035.

Crossrefs

Cf. A000798 (labeled topologies), A001035 (labeled posets), A001930 (unlabeled topologies), A000112 (unlabeled posets), A006057, A001928, A001929.
The case with unions only is A108798.
The case with intersections only is (also) A108798.
Partial sums are A326898 (the non-covering case).

Extensions

a(8)-a(12) from Goetz Pfeiffer (goetz.pfeiffer(AT)nuigalway.ie), Jan 21 2004
a(13)-a(16) from Brinkmann's and McKay's paper, sent by Vladeta Jovovic, Jan 04 2006

A306445 Number of collections of subsets of {1, 2, ..., n} that are closed under union and intersection.

Original entry on oeis.org

2, 4, 13, 74, 732, 12085, 319988, 13170652, 822378267, 76359798228, 10367879036456, 2029160621690295, 565446501943834078, 221972785233309046708, 121632215040070175606989, 92294021880898055590522262, 96307116899378725213365550192, 137362837456925278519331211455157, 266379254536998812281897840071155592
Offset: 0

Views

Author

Yuan Yao, Feb 15 2019

Keywords

Examples

			For n = 0, the empty collection and the collection containing the empty set only are both valid.
For n = 1, the 2^(2^1)=4 possible collections are also all closed under union and intersection.
For n = 2, there are only 3 invalid collections, namely the collections containing both {1} and {2} but not both {1,2} and the empty set. Hence there are 2^(2^2)-3 = 13 valid collections.
From _Gus Wiseman_, Jul 31 2019: (Start)
The a(0) = 2 through a(4) = 13 sets of sets:
  {}    {}        {}
  {{}}  {{}}      {{}}
        {{1}}     {{1}}
        {{},{1}}  {{2}}
                  {{1,2}}
                  {{},{1}}
                  {{},{2}}
                  {{},{1,2}}
                  {{1},{1,2}}
                  {{2},{1,2}}
                  {{},{1},{1,2}}
                  {{},{2},{1,2}}
                  {{},{1},{2},{1,2}}
(End)
		

References

  • R. Stanley, Enumerative Combinatorics, volume 1, second edition, Exercise 3.46.

Crossrefs

The covering case with {} is A000798.
The case closed under union only is A102897.
The case closed under intersection only is (also) A102897.
The BII-numbers of these set-systems are A326876.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Subsets[Range[n]]],SubsetQ[#,Union[Union@@@Tuples[#,2],Intersection@@@Tuples[#,2]]]&]],{n,0,3}] (* Gus Wiseman, Jul 31 2019 *)
    A000798 = Cases[Import["https://oeis.org/A000798/b000798.txt", "Table"], {, }][[All, 2]];
    a[n_] := 1 + Sum[Binomial[n, i]*Binomial[i, i - d]*A000798[[d + 1]], {d, 0, n}, {i, d, n}];
    a /@ Range[0, Length[A000798] - 1] (* Jean-François Alcover, Dec 30 2019 *)
  • Python
    import math
    # Sequence A000798
    topo = [1, 1, 4, 29, 355, 6942, 209527, 9535241, 642779354, 63260289423, 8977053873043, 1816846038736192, 519355571065774021, 207881393656668953041, 115617051977054267807460, 88736269118586244492485121, 93411113411710039565210494095, 134137950093337880672321868725846, 261492535743634374805066126901117203]
    def nCr(n, r):
        return math.factorial(n) // (math.factorial(r) * math.factorial(n-r))
    for n in range(len(topo)):
        ans = 1
        for d in range(n+1):
            for i in range(d, n+1):
                ans += nCr(n,i) * nCr(i, i-d) * topo[d]
        print(n, ans)

Formula

a(n) = 1 + Sum_{d=0..n} Sum_{i=d..n} C(n,i)*C(i,i-d)*A000798(d). (Follows by caseworking on the maximal and minimal set in the collection.)
E.g.f.: exp(x) + exp(x)^2*B(exp(x)-1) where B(x) is the e.g.f. for A001035 (after Stanley reference above). - Geoffrey Critzer, Jan 19 2024

Extensions

a(16)-a(18) from A000798 by Jean-François Alcover, Dec 30 2019

A102895 Number of ACI algebras or semilattices on n generators with no identity element.

Original entry on oeis.org

1, 2, 8, 90, 4542, 2747402, 151930948472, 28175295407840207894
Offset: 0

Views

Author

Mitch Harris, Jan 18 2005

Keywords

Comments

An ACI algebra or semilattice is a system with a single binary, idempotent, commutative and associative operation.
Or, number of families of subsets of {1, ..., n} that are closed under intersection and contain the empty set.

Examples

			a(2) = 8: Let the points be labeled a, b and let 0 denote the empty set. We want the number of collections of subsets of {a, b} which are closed under intersection and contain the empty subset. 0 subsets: 0 ways, 1 subset: 1 way (0), 2 subsets: 3 ways (0,a; 0,b; 0,ab), 3 subsets: 3 ways (0,a,b; 0,a,ab; 0,b,ab), 4 subsets: 1 way (0,a,b,ab), for a total of 8.
From _Gus Wiseman_, Aug 02 2019: (Start)
The a(0) = 1 through a(2) = 8 sets of sets with {} that are closed under intersection are:
  {{}}  {{}}      {{}}
        {{},{1}}  {{},{1}}
                  {{},{2}}
                  {{},{1,2}}
                  {{},{1},{2}}
                  {{},{1},{1,2}}
                  {{},{2},{1,2}}
                  {{},{1},{2},{1,2}}
(End)
		

References

  • G. Birkhoff, Lattice Theory. American Mathematical Society, Colloquium Publications, Vol. 25, 3rd ed., Providence, RI, 1967.
  • Maria Paola Bonacina and Nachum Dershowitz, Canonical Inference for Implicational Systems, in Automated Reasoning, Lecture Notes in Computer Science, Volume 5195/2008, Springer-Verlag.
  • P. Colomb, A. Irlande and O. Raynaud, Counting of Moore Families for n=7, International Conference on Formal Concept Analysis (2010)
  • E. H. Moore, Introduction to a Form of General Analysis, AMS Colloquium Publication 2 (1910), pp. 53-80.

Crossrefs

The connected case (i.e., with maximum) is A102894.
The same for union instead of intersection is A102896.
The unlabeled version is A108800.
The case also closed under union is A326878.
The BII-numbers of these set-systems (without the empty set) are A326880.
The covering case is A326881.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Subsets[Range[n]]],MemberQ[#,{}]&&SubsetQ[#,Intersection@@@Tuples[#,2]]&]],{n,0,3}] (* Gus Wiseman, Aug 02 2019 *)

Formula

For asymptotics see A102897.
a(n > 0) = 2 * A102894(n).

Extensions

Additional comments from Don Knuth, Jul 01 2005
Changed a(0) from 2 to 1 by Gus Wiseman, Aug 02 2019

A326876 BII-numbers of finite topologies without their empty set.

Original entry on oeis.org

0, 1, 2, 4, 5, 6, 7, 8, 16, 17, 24, 25, 32, 34, 40, 42, 64, 65, 66, 68, 69, 70, 71, 72, 76, 80, 81, 82, 85, 87, 88, 89, 93, 96, 97, 98, 102, 103, 104, 106, 110, 120, 121, 122, 127, 128, 256, 257, 384, 385, 512, 514, 640, 642, 1024, 1025, 1026, 1028, 1029, 1030
Offset: 1

Views

Author

Gus Wiseman, Jul 29 2019

Keywords

Comments

A finite topology is a finite set of finite sets closed under union and intersection and containing {} and the vertex set.
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. We define the set-system with BII-number n to be obtained by taking the binary indices of each binary index of n. Every finite set of finite nonempty sets has a different BII-number. For example, 18 has reversed binary expansion (0,1,0,0,1), and since the binary indices of 2 and 5 are {2} and {1,3} respectively, the BII-number of {{2},{1,3}} is 18.
The enumeration of finite topologies by number of points is given by A000798.

Examples

			The sequence of all finite topologies without their empty set together with their BII-numbers begins:
   0: {}
   1: {{1}}
   2: {{2}}
   4: {{1,2}}
   5: {{1},{1,2}}
   6: {{2},{1,2}}
   7: {{1},{2},{1,2}}
   8: {{3}}
  16: {{1,3}}
  17: {{1},{1,3}}
  24: {{3},{1,3}}
  25: {{1},{3},{1,3}}
  32: {{2,3}}
  34: {{2},{2,3}}
  40: {{3},{2,3}}
  42: {{2},{3},{2,3}}
  64: {{1,2,3}}
  65: {{1},{1,2,3}}
  66: {{2},{1,2,3}}
  68: {{1,2},{1,2,3}}
  69: {{1},{1,2},{1,2,3}}
		

Crossrefs

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
    Select[Range[0,100],SubsetQ[bpe/@bpe[#],Union[Union@@@Tuples[bpe/@bpe[#],2],DeleteCases[Intersection@@@Tuples[bpe/@bpe[#],2],{}]]]&]

A006058 Number of connected labeled T_4-topologies with n points.

Original entry on oeis.org

1, 1, 3, 16, 145, 2111, 47624, 1626003, 82564031, 6146805142, 662718022355, 102336213875523, 22408881211102698, 6895949927379360277, 2958271314760111914191, 1756322140048351303019576
Offset: 0

Views

Author

Keywords

Comments

From Gus Wiseman, Aug 05 2019: (Start)
For n > 0, also the number of topologies covering {1..n} whose nonempty open sets have nonempty intersection. Also the number of topologies covering {1..n} whose nonempty open sets are pairwise intersecting. For example, the a(0) = 1 through a(3) = 16 topologies (empty sets not shown) are:
{} {{1}} {{1,2}} {{1,2,3}}
{{1},{1,2}} {{1},{1,2,3}}
{{2},{1,2}} {{2},{1,2,3}}
{{3},{1,2,3}}
{{1,2},{1,2,3}}
{{1,3},{1,2,3}}
{{2,3},{1,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}}
(End)

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Sequences in the Erné (1974) paper: A000798, A001035, A006056, A006057, A001929, A001927, A006058, A006059, A000110.

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}],Intersection[#1,#2]=={}&],Union@@#==Range[n]&&SubsetQ[#,Union[Union@@@Tuples[#,2],Intersection@@@Tuples[#,2]]]&]],{n,0,4}] (* Gus Wiseman, Aug 05 2019 *)
    A000798 = Append[Cases[Import["https://oeis.org/A000798/b000798.txt", "Table"], {, }][[All, 2]], 0];
    a[n_] := If[n == 0, 1, Sum[ Binomial[n, k] A000798[[k+1]], {k, 0, n-1}]];
    a /@ Range[0, Length[A000798]-1] (* Jean-François Alcover, Jan 01 2020 *)

Formula

From Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 02 2008: (Start)
a(n) = Sum_{k=0..n-1} binomial(n, k)*A000798(k) if n>=1.
E.g.f.: Z4(x) = A(x)*(exp(x)-1) + 1 where A(x) denotes the e.g.f. for A000798. (End)
a(n) = A326909(n) - A000798(n). - Gus Wiseman, Aug 05 2019

Extensions

More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 02 2008

A326882 Irregular triangle read by rows where T(n,k) is the number of finite topologies with n points and k nonempty open sets, 0 <= k <= 2^n - 1.

Original entry on oeis.org

1, 0, 1, 0, 1, 2, 1, 0, 1, 6, 9, 6, 6, 0, 1, 0, 1, 14, 43, 60, 72, 54, 54, 20, 24, 0, 12, 0, 0, 0, 1, 0, 1, 30, 165, 390, 630, 780, 955, 800, 900, 500, 660, 240, 390, 120, 190, 10, 100, 0, 60, 0, 0, 0, 20, 0, 0, 0, 0, 0, 0, 0, 1
Offset: 0

Views

Author

Gus Wiseman, Aug 01 2019

Keywords

Examples

			Triangle begins:
  1
  0  1
  0  1  2  1
  0  1  6  9  6  6  0  1
  0  1 14 43 60 72 54 54 20 24  0 12  0  0  0  1
Row n = 3 counts the following topologies:
{}{123} {}{1}{123}  {}{1}{12}{123} {}{1}{2}{12}{123}  {}{1}{2}{12}{13}{123}
        {}{2}{123}  {}{1}{13}{123} {}{1}{3}{13}{123}  {}{1}{2}{12}{23}{123}
        {}{3}{123}  {}{1}{23}{123} {}{2}{3}{23}{123}  {}{1}{3}{12}{13}{123}
        {}{12}{123} {}{2}{12}{123} {}{1}{12}{13}{123} {}{1}{3}{13}{23}{123}
        {}{13}{123} {}{2}{13}{123} {}{2}{12}{23}{123} {}{2}{3}{12}{23}{123}
        {}{23}{123} {}{2}{23}{123} {}{3}{13}{23}{123} {}{2}{3}{13}{23}{123}
                    {}{3}{12}{123}
                    {}{3}{13}{123}      {}{1}{2}{3}{12}{13}{23}{123}
                    {}{3}{23}{123}
		

Crossrefs

Row lengths are A000079.
Row sums are A000798.
Columns: A281774 and refs therein.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Subsets[Range[n]],{k}],MemberQ[#,{}]&&MemberQ[#,Range[n]]&&SubsetQ[#,Union[Union@@@Tuples[#,2],Intersection@@@Tuples[#,2]]]&]],{n,0,4},{k,2^n}]

Extensions

Terms a(31) and beyond from Andrew Howroyd, Aug 10 2019

A326881 Number of set-systems with {} that are closed under intersection and cover n vertices.

Original entry on oeis.org

1, 1, 5, 71, 4223, 2725521, 151914530499, 28175294344381108057
Offset: 0

Views

Author

Gus Wiseman, Jul 30 2019

Keywords

Examples

			The a(2) = 5 set-systems:
  {{},{1,2}}
  {{},{1},{2}}
  {{},{1},{1,2}}
  {{},{2},{1,2}}
  {{},{1},{2},{1,2}}
		

Crossrefs

The case also closed under union is A000798.
The connected case (i.e., with maximum) is A102894.
The same for union instead of intersection is (also) A102894.
The non-covering case is A102895.
The BII-numbers of these set-systems (without the empty set) are A326880.
The unlabeled case is A326883.

Programs

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

Formula

Inverse binomial transform of A102895. - Andrew Howroyd, Aug 10 2019

Extensions

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

A326906 Number of sets of subsets of {1..n} that are closed under union and cover all n vertices.

Original entry on oeis.org

2, 2, 8, 90, 4542, 2747402, 151930948472, 28175295407840207894
Offset: 0

Views

Author

Gus Wiseman, Aug 03 2019

Keywords

Comments

Differs from A102895 in having a(0) = 2 instead of 1.

Examples

			The a(0) = 2 through a(2) = 8 sets of subsets:
  {}    {{1}}     {{1,2}}
  {{}}  {{},{1}}  {{},{1,2}}
                  {{1},{1,2}}
                  {{2},{1,2}}
                  {{},{1},{1,2}}
                  {{},{2},{1,2}}
                  {{1},{2},{1,2}}
                  {{},{1},{2},{1,2}}
		

Crossrefs

The case without empty sets is A102894.
The case with a single covering edge is A102895.
Binomial transform is A102897.
The case also closed under intersection is A326878 for n > 0.
The same for intersection instead of union is (also) A326906.
The unlabeled version is A326907.

Programs

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

Formula

a(n) = 2 * A102894(n).
Showing 1-10 of 23 results. Next