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.

A327102 BII-numbers of set-systems with non-spanning edge-connectivity >= 2.

This page as a plain text file.
%I A327102 #11 Aug 23 2019 14:15:35
%S A327102 5,6,17,20,21,24,34,36,38,40,48,52,53,54,55,56,60,61,62,63,65,66,68,
%T A327102 69,70,71,72,80,81,84,85,86,87,88,89,92,93,94,95,96,98,100,101,102,
%U A327102 103,104,106,108,109,110,111,112,113,114,115,116,117,118,119,120,121
%N A327102 BII-numbers of set-systems with non-spanning edge-connectivity >= 2.
%C A327102 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 A327102 A set-system has non-spanning 2-edge-connectivity >= 2 if it is connected and any single edge can be removed (along with any non-covered vertices) without making the set-system disconnected or empty. Alternatively, these are connected set-systems whose bridges (edges whose removal disconnects the set-system or leaves isolated vertices) are all endpoints (edges intersecting only one other edge).
%e A327102 The sequence of all set-systems with non-spanning edge-connectivity >= 2 together with their BII-numbers begins:
%e A327102    5: {{1},{1,2}}
%e A327102    6: {{2},{1,2}}
%e A327102   17: {{1},{1,3}}
%e A327102   20: {{1,2},{1,3}}
%e A327102   21: {{1},{1,2},{1,3}}
%e A327102   24: {{3},{1,3}}
%e A327102   34: {{2},{2,3}}
%e A327102   36: {{1,2},{2,3}}
%e A327102   38: {{2},{1,2},{2,3}}
%e A327102   40: {{3},{2,3}}
%e A327102   48: {{1,3},{2,3}}
%e A327102   52: {{1,2},{1,3},{2,3}}
%e A327102   53: {{1},{1,2},{1,3},{2,3}}
%e A327102   54: {{2},{1,2},{1,3},{2,3}}
%e A327102   55: {{1},{2},{1,2},{1,3},{2,3}}
%e A327102   56: {{3},{1,3},{2,3}}
%e A327102   60: {{1,2},{3},{1,3},{2,3}}
%e A327102   61: {{1},{1,2},{3},{1,3},{2,3}}
%e A327102   62: {{2},{1,2},{3},{1,3},{2,3}}
%e A327102   63: {{1},{2},{1,2},{3},{1,3},{2,3}}
%t A327102 bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
%t A327102 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 A327102 edgeConn[y_]:=If[Length[csm[bpe/@y]]!=1,0,Length[y]-Max@@Length/@Select[Union[Subsets[y]],Length[csm[bpe/@#]]!=1&]];
%t A327102 Select[Range[0,100],edgeConn[bpe[#]]>=2&]
%Y A327102 Graphs with spanning edge-connectivity >= 2 are counted by A095983.
%Y A327102 Graphs with non-spanning edge-connectivity >= 2 are counted by A322395.
%Y A327102 Also positions of terms >=2 in A326787.
%Y A327102 BII-numbers for non-spanning edge-connectivity 2 are A327097.
%Y A327102 BII-numbers for non-spanning edge-connectivity 1 are A327099.
%Y A327102 BII-numbers for spanning edge-connectivity >= 2 are A327109.
%Y A327102 Cf. A000120, A048793, A059166, A070939, A263296, A326031, A326749, A327076, A327101, A327102, A327108, A327148.
%K A327102 nonn
%O A327102 1,1
%A A327102 _Gus Wiseman_, Aug 23 2019