A320921 -id:A320921 - cp's OEIS frontend

A320925 Heinz numbers of connected multigraphical partitions.

4, 9, 12, 25, 27, 30, 36, 40, 49, 63, 70, 75, 81, 84, 90, 100, 108, 112, 120, 121, 147, 154, 165, 169, 175, 189, 196, 198, 210, 220, 225, 243, 250, 252, 264, 270, 273, 280, 286, 289, 300, 324, 325, 336, 343, 351, 352, 360, 361, 363, 364, 385, 390, 400, 441

Offset: 1

Gus Wiseman, Oct 24 2018

nonn

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

An integer partition is connected and multigraphical if it comprises the multiset of vertex-degrees of some connected multigraph.

			The sequence of all connected multigraphical partitions begins: (11), (22), (211), (33), (222), (321), (2211), (3111), (44), (422), (431), (332), (2222), (4211), (3221), (3311), (22211), (41111), (32111).

Cf. A000070, A000569, A007717, A056239, A112798, A147878, A209816, A300061, A320459, A320911, A320921, A320923, A320924.

prptns[m_]:=Union[Sort/@If[Length[m]==0,{{}},Join@@Table[Prepend[#,m[[ipr]]]&/@prptns[Delete[m,List/@ipr]],{ipr,Select[Prepend[{#},1]&/@Select[Range[2,Length[m]],m[[#]]>m[[#-1]]&],UnsameQ@@m[[#]]&]}]]];
csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Union[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
Select[Range[1000],Select[prptns[Flatten[MapIndexed[Table[#2,{#1}]&,If[#==1,{},Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]]]]],Length[csm[#]]==1&]!={}&]

A339843 Number of distinct sorted degree sequences among all n-vertex half-loop-graphs without isolated vertices.

Original entry on oeis.org

1, 1, 3, 9, 29, 97, 336, 1188, 4275, 15579, 57358, 212908, 795657, 2990221, 11291665, 42814783, 162920417, 621885767, 2380348729

Offset: 0

Gus Wiseman, Dec 27 2020

In the covering case, these degree sequences, sorted in decreasing order, are the same thing as half-loop-graphical partitions (A321729). An integer partition is half-loop-graphical if it comprises the multiset of vertex-degrees of some graph with half-loops, where a half-loop is an edge with one vertex.
The following are equivalent characteristics for any positive integer n:
(1) the prime indices of n can be partitioned into distinct singletons or strict pairs, i.e., into a set of half-loops or edges;
(2) n can be factored into distinct primes or squarefree semiprimes;
(3) the prime signature of n is half-loop-graphical.

			The a(0) = 1 through a(3) = 9 sorted degree sequences:
  ()  (1)  (1,1)  (1,1,1)
           (2,1)  (2,1,1)
           (2,2)  (2,2,1)
                  (2,2,2)
                  (3,1,1)
                  (3,2,1)
                  (3,2,2)
                  (3,3,2)
                  (3,3,3)
For example, the half-loop-graphs
  {{1},{1,2},{1,3},{2,3}}
  {{1},{2},{3},{1,2},{1,3}}
both have degrees y = (3,2,2), so y is counted under a(3).

Eric Weisstein's World of Mathematics, Degree Sequence.
Gus Wiseman, Counting and ranking factorizations, factorability, and vertex-degree partitions for groupings into pairs.

See link for additional cross references.
The version for simple graphs is A004251, covering: A095268.
The non-covering version (it allows isolated vertices) is A029889.
The same partitions counted by sum are conjectured to be A321729.
These graphs are counted by A006125 shifted left, covering: A322661.
The version for full loops is A339844, covering: A339845.
These graphs are ranked by A340018 and A340019.
A006125 counts labeled simple graphs, covering: A006129.
A027187 counts partitions of even length, ranked by A028260.
A058696 counts partitions of even numbers, ranked by A300061.
A320663/A339888 count unlabeled multiset partitions into singletons/pairs.
A339659 counts graphical partitions of 2n into k parts.
Cf. A062740, A096373, A167171, A320461, A320893, A320921, A320923, A338915, A339560, A339841, A339842.

Table[Length[Union[Sort[Table[Count[Join@@#,i],{i,n}]]&/@Select[Subsets[Subsets[Range[n],{1,2}]],Union@@#==Range[n]&]]],{n,0,5}]

a(n) = A029889(n) - A029889(n-1) for n > 0. - Andrew Howroyd, Jan 10 2024

a(7)-a(18) added (using A029889) by Andrew Howroyd, Jan 10 2024

A125702 Number of connected categories with n objects and 2n-1 morphisms.

Original entry on oeis.org

1, 1, 2, 3, 6, 10, 22, 42, 94, 203, 470, 1082, 2602, 6270, 15482, 38525, 97258, 247448, 635910, 1645411, 4289010, 11245670, 29656148, 78595028, 209273780, 559574414, 1502130920, 4046853091, 10939133170, 29661655793

Offset: 1

Franklin T. Adams-Watters and Christian G. Bower, Jan 05 2007

nonn

Also number of connected antitransitive relations on n objects (antitransitive meaning a R b and b R c implies not a R c); equivalently, number of free oriented bipartite trees, with all arrows going from one part to the other part.

Also the number of non-isomorphic multi-hypertrees of weight n - 1 with singletons allowed. A multi-hypertree with singletons allowed is a connected set multipartition (multiset of sets) with density -1, where the density of a set multipartition is the weight (sum of sizes of the parts) minus the number of parts minus the number of vertices. - Gus Wiseman, Oct 30 2018

			From _Gus Wiseman_, Oct 30 2018: (Start)
Non-isomorphic representatives of the a(1) = 1 through a(6) = 10 multi-hypertrees of weight n - 1 with singletons allowed:
  {}  {{1}}  {{12}}    {{123}}      {{1234}}        {{12345}}
             {{1}{1}}  {{2}{12}}    {{13}{23}}      {{14}{234}}
                       {{1}{1}{1}}  {{3}{123}}      {{4}{1234}}
                                    {{1}{2}{12}}    {{2}{13}{23}}
                                    {{2}{2}{12}}    {{2}{3}{123}}
                                    {{1}{1}{1}{1}}  {{3}{13}{23}}
                                                    {{3}{3}{123}}
                                                    {{1}{2}{2}{12}}
                                                    {{2}{2}{2}{12}}
                                                    {{1}{1}{1}{1}{1}}
(End)

Andrew Howroyd, Table of n, a(n) for n = 1..500

Same as A122086 except for n = 1; see there for formulas. Cf. A125699.

Cf. A000081, A000272, A007716, A007717, A030019, A052888, A134954, A317631, A317632, A318697, A320921, A321155.

\\ TreeGf gives gf of A000081.
TreeGf(N)={my(A=vector(N, j, 1)); for (n=1, N-1, A[n+1] = 1/n * sum(k=1, n, sumdiv(k, d, d*A[d]) * A[n-k+1] ) ); x*Ser(A)}
seq(n)={Vec(2*TreeGf(n) - TreeGf(n)^2 - x)} \\ Andrew Howroyd, Nov 02 2019

a(n) = A122086(n) for n > 1.

G.f.: 2*f(x) - f(x)^2 - x where f(x) is the g.f. of A000081. - Andrew Howroyd, Nov 02 2019

A321184 Number of integer partitions of n that are the vertex-degrees of some multiset of nonempty sets, none of which is a proper subset of any other, with no singletons.

Original entry on oeis.org

1, 0, 1, 1, 3, 2, 7, 6, 15, 15, 30

Offset: 0

Gus Wiseman, Oct 29 2018

			The a(2) = 1 through a(8) = 15 partitions:
  (11)  (111)  (22)    (2111)   (33)      (2221)     (44)
               (211)   (11111)  (222)     (3211)     (332)
               (1111)           (321)     (22111)    (422)
                                (2211)    (31111)    (431)
                                (3111)    (211111)   (2222)
                                (21111)   (1111111)  (3221)
                                (111111)             (3311)
                                                     (4211)
                                                     (22211)
                                                     (32111)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)
The a(6) = 7 integer partitions together with a realizing multi-antichain of each (the parts of the partition count the appearances of each vertex in the multi-antichain):
      (33): {{1,2},{1,2},{1,2}}
     (321): {{1,2},{1,2},{1,3}}
    (3111): {{1,2},{1,3},{1,4}}
     (222): {{1,2,3},{1,2,3}}
    (2211): {{1,2,3},{1,2,4}}
   (21111): {{1,2},{1,3,4,5}}
  (111111): {{1,2,3,4,5,6}}

Cf. A000070, A000569, A006126, A096827, A147878, A209816, A283877, A318360, A319719, A319721, A320799, A320921, A321176.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
multanti[m_]:=Select[mps[m],And[And@@UnsameQ@@@#,Min@@Length/@#>1,stableQ[#]]&];
strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]&/@IntegerPartitions[n];
Table[Length[Select[strnorm[n],multanti[#]!={}&]],{n,8}]

cp's OEIS Frontend

A320925 Heinz numbers of connected multigraphical partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A339843 Number of distinct sorted degree sequences among all n-vertex half-loop-graphs without isolated vertices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A125702 Number of connected categories with n objects and 2n-1 morphisms.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula

A321184 Number of integer partitions of n that are the vertex-degrees of some multiset of nonempty sets, none of which is a proper subset of any other, with no singletons.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica