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.

A326913 BII-numbers of set-systems (without {}) closed under union and intersection.

This page as a plain text file.
%I A326913 #6 Aug 05 2019 07:37:12
%S A326913 0,1,2,4,5,6,8,16,17,24,32,34,40,64,65,66,68,69,70,72,80,81,85,88,96,
%T A326913 98,102,104,120,128,256,257,384,512,514,640,1024,1025,1026,1028,1029,
%U A326913 1030,1152,1280,1281,1285,1408,1536,1538,1542,1664,1920,2048,2056,2176
%N A326913 BII-numbers of set-systems (without {}) closed under union and intersection.
%C A326913 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.
%C A326913 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. Elements of a set-system are sometimes called edges.
%e A326913 The sequence of all set-systems closed under union and intersection together with their BII-numbers begins:
%e A326913    0: {}
%e A326913    1: {{1}}
%e A326913    2: {{2}}
%e A326913    4: {{1,2}}
%e A326913    5: {{1},{1,2}}
%e A326913    6: {{2},{1,2}}
%e A326913    8: {{3}}
%e A326913   16: {{1,3}}
%e A326913   17: {{1},{1,3}}
%e A326913   24: {{3},{1,3}}
%e A326913   32: {{2,3}}
%e A326913   34: {{2},{2,3}}
%e A326913   40: {{3},{2,3}}
%e A326913   64: {{1,2,3}}
%e A326913   65: {{1},{1,2,3}}
%e A326913   66: {{2},{1,2,3}}
%e A326913   68: {{1,2},{1,2,3}}
%e A326913   69: {{1},{1,2},{1,2,3}}
%e A326913   70: {{2},{1,2},{1,2,3}}
%e A326913   72: {{3},{1,2,3}}
%t A326913 bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
%t A326913 Select[Range[0,100],SubsetQ[bpe/@bpe[#],Union@@@Tuples[bpe/@bpe[#],2]]&&SubsetQ[bpe/@bpe[#],Intersection@@@Tuples[bpe/@bpe[#],2]]&]
%Y A326913 Cf. A048793, A102894, A102895, A102896, A102897, A326031, A326875, A326876, A326878, A326880, A326901.
%K A326913 nonn
%O A326913 1,3
%A A326913 _Gus Wiseman_, Aug 04 2019