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.

Previous Showing 11-14 of 14 results.

A322369 Number of strict disconnected or empty integer partitions of n.

Original entry on oeis.org

1, 0, 0, 1, 1, 2, 2, 4, 4, 6, 7, 10, 10, 16, 17, 22, 26, 33, 36, 48, 52, 64, 76, 90, 101, 125, 142, 166, 192, 225, 250, 302, 339, 393, 451, 515, 581, 675, 762, 866, 985, 1122, 1255, 1441, 1612, 1823, 2059, 2318, 2591, 2930, 3275, 3668, 4118, 4605, 5125, 5749
Offset: 0

Views

Author

Gus Wiseman, Dec 04 2018

Keywords

Comments

An integer partition is connected if the prime factorizations of its parts form a connected hypergraph. It is disconnected if it can be separated into two or more integer partitions with relatively prime products. For example, the integer partition (654321) has three connected components: (6432)(5)(1).

Examples

			The a(3) = 1 through a(11) = 10 strict disconnected integer partitions:
  (2,1)  (3,1)  (3,2)  (5,1)    (4,3)    (5,3)    (5,4)    (7,3)      (6,5)
                (4,1)  (3,2,1)  (5,2)    (7,1)    (7,2)    (9,1)      (7,4)
                                (6,1)    (4,3,1)  (8,1)    (5,3,2)    (8,3)
                                (4,2,1)  (5,2,1)  (4,3,2)  (5,4,1)    (9,2)
                                                  (5,3,1)  (6,3,1)    (10,1)
                                                  (6,2,1)  (7,2,1)    (5,4,2)
                                                           (4,3,2,1)  (6,4,1)
                                                                      (7,3,1)
                                                                      (8,2,1)
                                                                      (5,3,2,1)
		

Crossrefs

Programs

  • Mathematica
    zsm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[Less@@#,GCD@@s[[#]]]>1&]},If[c=={},s,zsm[Sort[Append[Delete[s,List/@c[[1]]],LCM@@s[[c[[1]]]]]]]]];
    Table[Length[Select[IntegerPartitions[n],And[UnsameQ@@#,Length[zsm[#]]!=1]&]],{n,30}]

A322397 Number of 2-edge-connected clutters spanning n vertices.

Original entry on oeis.org

0, 0, 4, 71, 5927
Offset: 1

Views

Author

Gus Wiseman, Dec 06 2018

Keywords

Comments

A clutter is a connected antichain of sets. It is 2-edge-connected if it cannot be disconnected by removing any single edge. Compare to blobs or 2-vertex-connected clutters (A275307).

Examples

			The a(3) = 4 clutters:
  {{1,3},{2,3}}
  {{1,2},{2,3}}
  {{1,2},{1,3}}
  {{1,2},{1,3},{2,3}}
		

Crossrefs

A322399 Number of non-isomorphic 2-edge-connected clutters spanning n vertices.

Original entry on oeis.org

0, 0, 2, 12, 149
Offset: 1

Views

Author

Gus Wiseman, Dec 06 2018

Keywords

Comments

A clutter is a connected antichain of sets. It is 2-edge-connected if it cannot be disconnected by removing any single edge. Compare to blobs or 2-vertex-connected clutters (A304887).

Examples

			Non-isomorphic representatives of the a(4) = 12 clutters:
  {{1,4},{2,3,4}}
  {{1,3,4},{2,3,4}}
  {{1,4},{2,4},{3,4}}
  {{1,3},{1,4},{2,3,4}}
  {{1,2},{1,3,4},{2,3,4}}
  {{1,2,4},{1,3,4},{2,3,4}}
  {{1,2},{1,3},{2,4},{3,4}}
  {{1,4},{2,3},{2,4},{3,4}}
  {{1,2},{1,3},{1,4},{2,3,4}}
  {{1,3},{1,4},{2,3},{2,4},{3,4}}
  {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
  {{1,2},{1,3},{1,4},{2,3},{2,4},{3,4}}
		

Crossrefs

A322401 Number of strict integer partitions of n with edge-connectivity 1.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 5, 1, 6, 2, 7, 2, 13, 3, 14, 6, 18, 8, 28, 11, 33, 19, 38, 22, 54, 28, 71, 44, 83, 53, 110, 68, 134, 98, 154, 120, 209, 145, 253, 191, 302, 244, 385, 299, 459, 390, 553, 483, 693, 578
Offset: 0

Views

Author

Gus Wiseman, Dec 06 2018

Keywords

Comments

The edge-connectivity of an integer partition is the minimum number of parts that must be removed so that the prime factorizations of the remaining parts form a disconnected (or empty) hypergraph.

Examples

			The a(30) = 11 strict integer partitions with edge-connectivity 1:
  (30),
  (10,9,6,5), (12,10,5,3), (14,7,6,3), (15,6,5,4), (15,10,3,2),
  (9,8,6,4,3), (10,9,6,3,2), (12,9,4,3,2), (15,6,4,3,2),
  (10,6,5,4,3,2).
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    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]]]]]]]]];
    edgeConn[y_]:=If[Length[csm[primeMS/@y]]!=1,0,Length[y]-Max@@Length/@Select[Union[Subsets[y]],Length[csm[primeMS/@#]]!=1&]];
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&edgeConn[#]==1&]],{n,30}]
Previous Showing 11-14 of 14 results.