A108799 Erroneous version of A193674.
1, 2, 5, 19, 184, 14664, 108295801
Offset: 0
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.
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)
Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],SubsetQ[#,Union@@@Tuples[#,2]]&]],{n,0,3}] (* Gus Wiseman, Jul 31 2019 *)
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)
From _Gus Wiseman_, Aug 01 2019: (Start) The a(3) = 45 set-systems with {} and {1,2,3} that are closed under intersection are the following ({} and {1,2,3} not shown). The BII-numbers of these set-systems are given by A326880. 0 {1} {1}{2} {1}{2}{3} {1}{2}{3}{12} {1}{2}{3}{12}{13} {2} {1}{3} {1}{2}{12} {1}{2}{3}{13} {1}{2}{3}{12}{23} {3} {2}{3} {1}{2}{13} {1}{2}{3}{23} {1}{2}{3}{13}{23} {12} {1}{12} {1}{2}{23} {1}{2}{12}{13} {13} {1}{13} {1}{3}{12} {1}{2}{12}{23} {23} {1}{23} {1}{3}{13} {1}{3}{12}{13} {1}{2}{3}{12}{13}{23} {2}{12} {1}{3}{23} {1}{3}{13}{23} {2}{13} {2}{3}{12} {2}{3}{12}{23} {2}{23} {2}{3}{13} {2}{3}{13}{23} {3}{12} {2}{3}{23} {3}{13} {1}{12}{13} {3}{23} {2}{12}{23} {3}{13}{23} (End)
Table[Length[Select[Subsets[Subsets[Range[n],{1,n}]],Union@@#==Range[n]&&SubsetQ[#,Union@@@Tuples[#,2]]&]],{n,0,3}] (* Gus Wiseman, Aug 01 2019 *)
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)
Table[Length[Select[Subsets[Subsets[Range[n]]],MemberQ[#,{}]&&SubsetQ[#,Intersection@@@Tuples[#,2]]&]],{n,0,3}] (* Gus Wiseman, Aug 02 2019 *)
a(2) = 14: Let the points be labeled a, b. We want the number of collections of subsets of {a, b} which are closed under intersection. 0 subsets: 1 way ({}), 1 subset: 4 ways (0; a; b; ab), 2 subsets: 5 ways (0,a; 0,b; 0,ab; a,ab; b,ab) [not a,b because their intersection, 0, would be missing], 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 14. From _Gus Wiseman_, Aug 03 2019: (Start) The a(0) = 2 through a(2) = 14 sets of subsets closed under union: {} {} {} {{}} {{}} {{}} {{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}} {{},{1},{2},{1,2}} (End)
Table[Length[Select[Subsets[Subsets[Range[n]]],SubsetQ[#,Union@@@Tuples[#,2]]&]],{n,0,3}] (* Gus Wiseman, Aug 03 2019 *)
From _Gus Wiseman_, Aug 04 2019: (Start) Non-isomorphic representatives of the a(0) = 2 through a(2) = 10 sets of sets: {} {} {} {{}} {{}} {{}} {{1}} {{1}} {{},{1}} {{1,2}} {{},{1}} {{},{1,2}} {{2},{1,2}} {{},{2},{1,2}} {{1},{2},{1,2}} {{},{1},{2},{1,2}} (End)
From _Gus Wiseman_, Aug 02 2019: (Start) Non-isomorphic representatives of the a(0) = 1 through a(3) = 14 union-closed sets of sets: {} {}{1} {}{12} {}{123} {}{2}{12} {}{3}{123} {}{1}{2}{12} {}{23}{123} {}{1}{23}{123} {}{3}{23}{123} {}{13}{23}{123} {}{2}{3}{23}{123} {}{2}{13}{23}{123} {}{3}{13}{23}{123} {}{12}{13}{23}{123} {}{2}{3}{13}{23}{123} {}{3}{12}{13}{23}{123} {}{2}{3}{12}{13}{23}{123} {}{1}{2}{3}{12}{13}{23}{123} (End)
From _Gus Wiseman_, Aug 02 2019: (Start) Non-isomorphic representatives of the a(0) = 1 through a(3) = 28 sets of sets with {} that are closed under intersection: {} {} {} {} {}{1} {}{1} {}{1} {}{12} {}{12} {}{1}{2} {}{123} {}{2}{12} {}{1}{2} {}{1}{2}{12} {}{1}{23} {}{2}{12} {}{3}{123} {}{1}{2}{3} {}{23}{123} {}{1}{2}{12} {}{1}{3}{23} {}{2}{3}{123} {}{3}{13}{23} {}{1}{23}{123} {}{3}{23}{123} {}{1}{2}{3}{23} {}{1}{2}{3}{123} {}{2}{3}{13}{23} {}{1}{3}{23}{123} {}{2}{3}{23}{123} {}{3}{13}{23}{123} {}{1}{2}{3}{13}{23} {}{1}{2}{3}{23}{123} {}{2}{3}{13}{23}{123} {}{1}{2}{3}{12}{13}{23} {}{1}{2}{3}{13}{23}{123} {}{1}{2}{3}{12}{13}{23}{123} (End)
The a(2) = 5 set-systems: {{},{1,2}} {{},{1},{2}} {{},{1},{1,2}} {{},{2},{1,2}} {{},{1},{2},{1,2}}
Table[Length[Select[Subsets[Subsets[Range[n]]],MemberQ[#,{}]&&Union@@#==Range[n]&&SubsetQ[#,Intersection@@@Tuples[#,2]]&]],{n,0,3}]
Comments