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.

A327098 BII-numbers of set-systems with cut-connectivity 1.

This page as a plain text file.
%I A327098 #15 Sep 01 2019 22:03:07
%S A327098 1,2,8,20,21,22,23,28,29,30,31,36,37,38,39,44,45,46,47,48,49,50,51,56,
%T A327098 57,58,59,128,260,261,262,263,272,273,276,277,278,279,280,281,284,285,
%U A327098 286,287,292,293,294,295,300,301,302,303,304,305,306,307,308,309
%N A327098 BII-numbers of set-systems with cut-connectivity 1.
%C A327098 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 set-system (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.
%C A327098 We define the cut-connectivity (A326786, A327237), of a set-system to be the minimum number of vertices that must be removed (along with any resulting empty edges) to obtain a disconnected or empty set-system, with the exception that a set-system with one vertex and no edges has cut-connectivity 1. Except for cointersecting set-systems (A326853, A327039), this is the same as vertex-connectivity (A327334, A327051).
%e A327098 The sequence of all set-systems with cut-connectivity 1 together with their BII-numbers begins:
%e A327098    1: {{1}}
%e A327098    2: {{2}}
%e A327098    8: {{3}}
%e A327098   20: {{1,2},{1,3}}
%e A327098   21: {{1},{1,2},{1,3}}
%e A327098   22: {{2},{1,2},{1,3}}
%e A327098   23: {{1},{2},{1,2},{1,3}}
%e A327098   28: {{1,2},{3},{1,3}}
%e A327098   29: {{1},{1,2},{3},{1,3}}
%e A327098   30: {{2},{1,2},{3},{1,3}}
%e A327098   31: {{1},{2},{1,2},{3},{1,3}}
%e A327098   36: {{1,2},{2,3}}
%e A327098   37: {{1},{1,2},{2,3}}
%e A327098   38: {{2},{1,2},{2,3}}
%e A327098   39: {{1},{2},{1,2},{2,3}}
%e A327098   44: {{1,2},{3},{2,3}}
%e A327098   45: {{1},{1,2},{3},{2,3}}
%e A327098   46: {{2},{1,2},{3},{2,3}}
%e A327098   47: {{1},{2},{1,2},{3},{2,3}}
%e A327098   48: {{1,3},{2,3}}
%t A327098 bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
%t A327098 csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
%t A327098 vertConnSys[sys_]:=If[Length[csm[sys]]!=1,0,Min@@Length/@Select[Subsets[Union@@sys],Function[del,Length[csm[DeleteCases[DeleteCases[sys,Alternatives@@del,{2}],{}]]]!=1]]];
%t A327098 Select[Range[0,100],vertConnSys[bpe/@bpe[#]]==1&]
%Y A327098 A subset of A326749.
%Y A327098 Positions of 1's in A326786.
%Y A327098 BII-numbers for cut-connectivity 2 are A327082.
%Y A327098 BII-numbers for non-spanning edge-connectivity 1 are A327099.
%Y A327098 BII-numbers for spanning edge-connectivity 1 are A327111.
%Y A327098 Integer partitions with cut-connectivity 1 are counted by A322390.
%Y A327098 Labeled connected separable graphs are counted by A327114.
%Y A327098 Connected separable set-systems are counted by A327197.
%Y A327098 Cf. A000120, A048793, A070939, A322389, A326031, A327100, A327125.
%K A327098 nonn
%O A327098 1,2
%A A327098 _Gus Wiseman_, Aug 21 2019