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.
%I A326787 #10 Sep 26 2019 03:43:10 %S A326787 0,1,1,0,1,2,2,1,1,0,0,0,0,0,0,0,1,2,0,0,2,3,1,1,2,1,0,0,1,1,1,1,1,0, %T A326787 2,0,2,1,3,1,2,0,1,0,1,1,1,1,2,1,1,1,3,2,2,2,3,1,1,1,2,2,2,2,1,2,2,1, %U A326787 2,3,3,2,2,1,1,1,1,1,1,1,2,3,1,1,3,4,2 %N A326787 Non-spanning edge-connectivity of the set-system with BII-number n. %C A326787 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. %C A326787 Elements of a set-system are sometimes called edges. The non-spanning edge-connectivity of a graph is the minimum number of edges that must be removed to obtain a graph whose edge-set is disconnected or empty. %H A326787 Wikipedia, <a href="https://en.wikipedia.org/wiki/K-edge-connected_graph">k-edge-connected graph</a> %e A326787 Positions of first appearances of each integer together with the corresponding set-systems: %e A326787 0: {} %e A326787 1: {{1}} %e A326787 5: {{1},{1,2}} %e A326787 21: {{1},{1,2},{1,3}} %e A326787 85: {{1},{1,2},{1,3},{1,2,3}} %e A326787 341: {{1},{1,2},{1,3},{1,4},{1,2,3}} %e A326787 1365: {{1},{1,2},{1,3},{1,4},{1,2,3},{1,2,4}} %e A326787 5461: {{1},{1,2},{1,3},{1,4},{1,2,3},{1,2,4},{1,3,4}} %t A326787 bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; %t A326787 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]]]]]]]]]; %t A326787 eConn[sys_]:=Length[sys]-Max@@Length/@Select[Subsets[sys],Length[csm[#]]!=1&]; %t A326787 Table[eConn[bpe/@bpe[n]],{n,0,100}] %Y A326787 Cf. A000120, A013922, A048793, A070939, A095983, A322336, A322338 (same for MM-numbers), A326031, A326749, A326753, A326786 (vertex-connectivity). %K A326787 nonn %O A326787 0,6 %A A326787 _Gus Wiseman_, Jul 25 2019