A339888 -id:A339888 - cp's OEIS frontend

A339842 Heinz numbers of non-graphical, multigraphical integer partitions of even numbers.

9, 25, 30, 49, 63, 70, 75, 84, 100, 121, 147, 154, 165, 169, 175, 189, 196, 198, 210, 220, 250, 264, 273, 280, 286, 289, 325, 343, 351, 361, 363, 364, 385, 390, 441, 442, 462, 468, 484, 490, 495, 507, 520, 525, 529, 550, 561, 588, 594, 595, 616, 624, 637, 646

Offset: 1

Gus Wiseman, Dec 27 2020

nonn

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

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

			The sequence of terms together with their prime indices begins:
      9: {2,2}        189: {2,2,2,4}      363: {2,5,5}
     25: {3,3}        196: {1,1,4,4}      364: {1,1,4,6}
     30: {1,2,3}      198: {1,2,2,5}      385: {3,4,5}
     49: {4,4}        210: {1,2,3,4}      390: {1,2,3,6}
     63: {2,2,4}      220: {1,1,3,5}      441: {2,2,4,4}
     70: {1,3,4}      250: {1,3,3,3}      442: {1,6,7}
     75: {2,3,3}      264: {1,1,1,2,5}    462: {1,2,4,5}
     84: {1,1,2,4}    273: {2,4,6}        468: {1,1,2,2,6}
    100: {1,1,3,3}    280: {1,1,1,3,4}    484: {1,1,5,5}
    121: {5,5}        286: {1,5,6}        490: {1,3,4,4}
    147: {2,4,4}      289: {7,7}          495: {2,2,3,5}
    154: {1,4,5}      325: {3,3,6}        507: {2,6,6}
    165: {2,3,5}      343: {4,4,4}        520: {1,1,1,3,6}
    169: {6,6}        351: {2,2,2,6}      525: {2,3,3,4}
    175: {3,3,4}      361: {8,8}          529: {9,9}
For example, a complete list of all multigraphs with degrees (4,2,2,2) is:
  {{1,2},{1,2},{1,3},{1,4},{3,4}}
  {{1,2},{1,3},{1,3},{1,4},{2,4}}
  {{1,2},{1,3},{1,4},{1,4},{2,3}}
Since none of these is strict, i.e., a graph, the Heinz number 189 is in the sequence.

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.
Distinct prime shadows (images under A181819) of A340017.
A000070 counts non-multigraphical partitions (A339620).
A000569 counts graphical partitions (A320922).
A027187 counts partitions of even length (A028260).
A058696 counts partitions of even numbers (A300061).
A096373 cannot be partitioned into strict pairs.
A209816 counts multigraphical partitions (A320924).
A320663/A339888 count unlabeled multiset partitions into singletons/pairs.
A320893 can be partitioned into distinct pairs but not into strict pairs.
A339560 can be partitioned into distinct strict pairs.
A339617 counts non-graphical partitions of 2n (A339618).
A339659 counts graphical partitions of 2n into k parts.
Cf. A004251, A006129, A007717, A056239, A095268, A112798, A181821, A305936, A318284, A339559.

strr[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[strr[n/d],Min@@#>=d&]],{d,Select[Divisors[n],And[SquareFreeQ[#],PrimeOmega[#]==2]&]}]];
nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[FactorInteger[n]//Reverse,{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],EvenQ[Length[nrmptn[#]]]&& Select[strr[Times@@Prime/@nrmptn[#]],UnsameQ@@#&]=={}&&strr[Times@@Prime/@nrmptn[#]]!={}&]

Equals A320924 /\ A339618.

Equals A320924 \ A320922.

A340651 Number of non-isomorphic cross-balanced multiset partitions of weight n.

Original entry on oeis.org

1, 1, 2, 4, 11, 26, 77, 220, 677, 2098, 6756, 22101, 74264, 253684, 883795, 3130432, 11275246, 41240180, 153117873, 576634463, 2201600769, 8517634249, 33378499157, 132438117118, 531873247805, 2161293783123, 8883906870289, 36928576428885, 155196725172548, 659272353608609, 2830200765183775

Offset: 0

Gus Wiseman, Feb 05 2021

nonn

We define a multiset partition to be cross-balanced if it uses exactly as many distinct vertices as the greatest size of a part.

			Non-isomorphic representatives of the a(1) = 1 through a(5) = 16 multiset partitions:
  {{1}}  {{1,2}}    {{1,2,3}}      {{1,2,3,4}}
         {{1},{1}}  {{1},{2,2}}    {{1,1},{2,2}}
                    {{2},{1,2}}    {{1,2},{1,2}}
                    {{1},{1},{1}}  {{1,2},{2,2}}
                                   {{1},{2,3,3}}
                                   {{3},{1,2,3}}
                                   {{1},{1},{2,2}}
                                   {{1},{2},{1,2}}
                                   {{1},{2},{2,2}}
                                   {{2},{2},{1,2}}
                                   {{1},{1},{1},{1}}

Andrew Howroyd, Table of n, a(n) for n = 0..50

The co-balanced version is A319616.
The balanced version is A340600.
The twice-balanced version is A340652.
The version for factorizations is A340654.
A007716 counts non-isomorphic multiset partitions.
A007718 counts non-isomorphic connected multiset partitions.
A316980 counts non-isomorphic strict multiset partitions.
Other balance-related sequences:
- A047993 counts balanced partitions.
- A106529 lists balanced numbers.
- A340596 counts co-balanced factorizations.
- A340599 counts alt-balanced factorizations.
- A340600 counts unlabeled balanced multiset partitions.
- A340653 counts balanced factorizations.
Cf. A001055, A007717, A064174, A316983, A320663, A324522, A339888, A340655.

\\ See A340652 for G.
seq(n)={Vec(1 + sum(k=1,n, G(k,n,k) - G(k-1,n,k) - G(k,n,k-1) + G(k-1,n,k-1)))} \\ Andrew Howroyd, Jan 15 2024

a(11) onwards from Andrew Howroyd, Jan 15 2024

A368726 Number of non-isomorphic connected multiset partitions of weight n into singletons or pairs.

Original entry on oeis.org

1, 1, 3, 3, 8, 10, 26, 38, 93, 161, 381, 732, 1721, 3566, 8369, 18316, 43280, 98401, 234959, 549628, 1327726, 3175670, 7763500, 18905703, 46762513, 115613599, 289185492, 724438500, 1831398264, 4641907993, 11853385002, 30365353560

Offset: 0

Gus Wiseman, Jan 06 2024

nonn

			Non-isomorphic representatives of the a(1) = 1 through a(5) = 10 multiset partitions:
  {{1}}  {{1,1}}    {{1},{1,1}}    {{1,1},{1,1}}      {{1},{1,1},{1,1}}
         {{1,2}}    {{2},{1,2}}    {{1,2},{1,2}}      {{1},{1,2},{2,2}}
         {{1},{1}}  {{1},{1},{1}}  {{1,2},{2,2}}      {{2},{1,2},{1,2}}
                                   {{1,3},{2,3}}      {{2},{1,2},{2,2}}
                                   {{1},{1},{1,1}}    {{2},{1,3},{2,3}}
                                   {{1},{2},{1,2}}    {{3},{1,3},{2,3}}
                                   {{2},{2},{1,2}}    {{1},{1},{1},{1,1}}
                                   {{1},{1},{1},{1}}  {{1},{2},{2},{1,2}}
                                                      {{2},{2},{2},{1,2}}
                                                      {{1},{1},{1},{1},{1}}

Andrew Howroyd, Table of n, a(n) for n = 0..50

For edges of any size we have A007718.
This is the connected case of A320663.
The case of singletons and strict pairs is A368727, Euler transform A339888.
A000085, A100861, A111924 count set partitions into singletons or pairs.
A007716 counts non-isomorphic multiset partitions, into pairs A007717.
A062740 counts connected loop-graphs, unlabeled A054921.
A320732 counts factorizations into primes or semiprimes, strict A339839.
A322661 counts covering loop-graphs, unlabeled A322700.
Cf. A001515, A000666, A122848, A283877, A302545, A320462, A321405, A368186, A368598, A368599, A368731.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mpm[n_]:=Join@@Table[Union[Sort[Sort/@(#/.x_Integer:>s[[x]])]& /@ sps[Range[n]]],{s,Flatten[MapIndexed[Table[#2,{#1}]&,#]]& /@ IntegerPartitions[n]}];
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]]]]]]]]];
brute[m_]:=First[Sort[Table[Sort[Sort /@ (m/.Rule@@@Table[{i,p[[i]]},{i,Length[p]}])], {p,Permutations[Union@@m]}]]];
Table[Length[Union[brute /@ Select[mpm[n], Max@@Length/@#<=2&&Length[csm[#]]<=1&]]],{n,0,8}]

Inverse Euler transform of A320663.

A368727 Number of non-isomorphic connected multiset partitions of weight n into singletons or strict pairs.

Original entry on oeis.org

1, 1, 2, 2, 5, 6, 15, 21, 49, 82, 184, 341, 766, 1530, 3428, 7249, 16394, 36009, 82492, 186485, 433096, 1001495, 2358182, 5554644, 13255532, 31718030, 76656602, 185982207, 454889643, 1117496012, 2764222322, 6868902152, 17172601190

Offset: 0

Gus Wiseman, Jan 06 2024

nonn

			Non-isomorphic representatives of the a(1) = 1 through a(6) = 15 multiset partitions:
  {1}  {12}    {2}{12}    {12}{12}      {2}{12}{12}      {12}{12}{12}
       {1}{1}  {1}{1}{1}  {13}{23}      {2}{13}{23}      {12}{13}{23}
                          {1}{2}{12}    {3}{13}{23}      {13}{23}{23}
                          {2}{2}{12}    {1}{2}{2}{12}    {13}{24}{34}
                          {1}{1}{1}{1}  {2}{2}{2}{12}    {14}{24}{34}
                                        {1}{1}{1}{1}{1}  {1}{2}{12}{12}
                                                         {1}{2}{13}{23}
                                                         {2}{2}{12}{12}
                                                         {2}{2}{13}{23}
                                                         {2}{3}{13}{23}
                                                         {3}{3}{13}{23}
                                                         {1}{1}{2}{2}{12}
                                                         {1}{2}{2}{2}{12}
                                                         {2}{2}{2}{2}{12}
                                                         {1}{1}{1}{1}{1}{1}

Andrew Howroyd, Table of n, a(n) for n = 0..50

For edges of any size we have A056156, with loops A007718.
This is the connected case of A339888.
Allowing loops {x,x} gives A368726, Euler transform A320663.
A000085, A100861, A111924 count set partitions into singletons or pairs.
A007716 counts non-isomorphic multiset partitions, into pairs A007717.
A062740 counts connected loop-graphs, unlabeled A054921.
A320732 counts factorizations into primes or semiprimes, strict A339839.
A322661 counts covering loop-graphs, unlabeled A322700.
Cf. A001515, A000666, A122848, A283877, A302545, A320462, A321405, A368598, A368599, A368731.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]] /@ Cases[Subsets[set],{i,_}];
mpm[n_]:=Join@@Table[Union[Sort[Sort /@ (#/.x_Integer:>s[[x]])]&/@sps[Range[n]]], {s,Flatten[MapIndexed[Table[#2,{#1}]&,#]]& /@ IntegerPartitions[n]}];
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]]]]]]]]];
brute[m_]:=First[Sort[Table[Sort[Sort /@ (m/.Rule@@@Table[{i,p[[i]]},{i,Length[p]}])], {p,Permutations[Union@@m]}]]];
Table[Length[Union[brute /@ Select[mpm[n],And@@UnsameQ@@@#&&Max@@Length/@#<=2&&Length[csm[#]]<=1&]]],{n,0,8}]

Inverse Euler transform of A339888.

cp's OEIS Frontend

A339842 Heinz numbers of non-graphical, multigraphical integer partitions of even numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A340651 Number of non-isomorphic cross-balanced multiset partitions of weight n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Extensions

A368726 Number of non-isomorphic connected multiset partitions of weight n into singletons or pairs.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A368727 Number of non-isomorphic connected multiset partitions of weight n into singletons or strict pairs.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula