A319190 -id:A319190 - cp's OEIS frontend

A322788 Irregular triangle read by rows where T(n,k) is the number of uniform multiset partitions of a multiset with d = A027750(n,k) copies of each integer from 1 to n/d.

1, 2, 2, 2, 2, 5, 4, 3, 2, 2, 27, 11, 6, 4, 2, 2, 142, 29, 8, 4, 282, 12, 3, 1073, 101, 8, 4, 2, 2, 32034, 1581, 234, 75, 20, 6, 2, 2, 136853, 2660, 10, 4, 1527528, 1985, 91, 4, 4661087, 64596, 648, 20, 5, 2, 2, 227932993, 1280333, 41945, 231, 28, 6

Offset: 1

Gus Wiseman, Dec 26 2018

A multiset partition is uniform if all parts have the same size.

			Triangle begins:
     1
     2    2
     2    2
     5    4    3
     2    2
    27   11    6    4
     2    2
   142   29    8    4
   282   12    3
  1073  101    8    4
The multiset partitions counted under row 6:
  {123456}          {112233}          {111222}          {111111}
  {123}{456}        {112}{233}        {111}{222}        {111}{111}
  {124}{356}        {113}{223}        {112}{122}        {11}{11}{11}
  {125}{346}        {122}{133}        {11}{12}{22}      {1}{1}{1}{1}{1}{1}
  {126}{345}        {123}{123}        {12}{12}{12}
  {134}{256}        {11}{22}{33}      {1}{1}{1}{2}{2}{2}
  {135}{246}        {11}{23}{23}
  {136}{245}        {12}{12}{33}
  {145}{236}        {12}{13}{23}
  {146}{235}        {13}{13}{22}
  {156}{234}        {1}{1}{2}{2}{3}{3}
  {12}{34}{56}
  {12}{35}{46}
  {12}{36}{45}
  {13}{24}{56}
  {13}{25}{46}
  {13}{26}{45}
  {14}{23}{56}
  {14}{25}{36}
  {14}{26}{35}
  {15}{23}{46}
  {15}{24}{36}
  {15}{26}{34}
  {16}{23}{45}
  {16}{24}{35}
  {16}{25}{34}
  {1}{2}{3}{4}{5}{6}

Andrew Howroyd, Table of n, a(n) for n = 1..482 (rows 1..100)

Row sums are A322785. First column is A038041.

Cf. A001055, A005176, A027750, A056239, A072774, A100778, A295193, A306017, A319190, A319612, A322784, A322785, A322786, A322789, A322792.

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]]]];
Table[Length[Select[mps[Join@@Table[Range[n/d],{d}]],SameQ@@Length/@#&]],{n,10},{d,Divisors[n]}]

T(n,k) = A322794(A002110(n/d)^d), where d = A027750(n,k).

More terms from Alois P. Heinz, Jan 30 2019
Terms a(38) and beyond from Andrew Howroyd, Feb 03 2022
Edited by Peter Munn, Mar 05 2025

A331127 Number of n-regular hypergraphs on 5 labeled vertices.

Original entry on oeis.org

1, 52, 1088, 11301, 67198, 250735, 621348, 1058139, 1261184, 1058139, 621348, 250735, 67198, 11301, 1088, 52, 1

Offset: 0

Andrew Howroyd, Jan 10 2020

The sums of all terms is 5280908 = A319190(5) + 1. The extra 1 comes from the empty hypergraph.

Column k=5 of A188445.

Cf. A319190, A331129.

A322703 Squarefree MM-numbers of strict uniform regular multiset systems spanning an initial interval of positive integers.

Original entry on oeis.org

1, 2, 3, 7, 13, 15, 19, 53, 113, 131, 151, 161, 165, 311, 719, 1291, 1321, 1619, 1937, 1957, 2021, 2093, 2117, 2257, 2805, 3671, 6997, 8161, 10627, 13969, 13987, 14023, 15617, 17719, 17863, 20443, 22207, 22339, 38873, 79349, 84017, 86955, 180503, 202133

Offset: 1

Gus Wiseman, Dec 27 2018

nonn

A multiset multisystem is a finite multiset of finite multisets. A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The multiset multisystem with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset multisystem with MM-number 78 is {{},{1},{1,2}}.

A multiset multisystem is uniform if all parts have the same size, regular if all vertices appear the same number of times, and strict if there are no repeated parts. For example, {{1,1},{2,3},{2,3}} is uniform and regular but not strict, so its MM-number 15463 does not belong to the sequence. Note that the parts of parts such as {1,1} do not have to be distinct, only the multiset of parts.

			The sequence of all strict uniform regular multiset multisystems spanning an initial interval of positive integers, together with their MM-numbers, begins:
      1: {}
      2: {{}}
      3: {{1}}
      7: {{1,1}}
     13: {{1,2}}
     15: {{1},{2}}
     19: {{1,1,1}}
     53: {{1,1,1,1}}
    113: {{1,2,3}}
    131: {{1,1,1,1,1}}
    151: {{1,1,2,2}}
    161: {{1,1},{2,2}}
    165: {{1},{2},{3}}
    311: {{1,1,1,1,1,1}}
    719: {{1,1,1,1,1,1,1}}
   1291: {{1,2,3,4}}
   1321: {{1,1,1,2,2,2}}
   1619: {{1,1,1,1,1,1,1,1}}
   1937: {{1,2},{3,4}}
   1957: {{1,1,1},{2,2,2}}
   2021: {{1,4},{2,3}}
   2093: {{1,1},{1,2},{2,2}}
   2117: {{1,3},{2,4}}
   2257: {{1,1,2},{1,2,2}}
   2805: {{1},{2},{3},{4}}
   3671: {{1,1,1,1,1,1,1,1,1}}
   6997: {{1,1,2,2,3,3}}
   8161: {{1,1,1,1,1,1,1,1,1,1}}
  10627: {{1,1,1,1,2,2,2,2}}
  13969: {{1,2,2},{1,3,3}}
  13987: {{1,1,3},{2,2,3}}
  14023: {{1,1,2},{2,3,3}}
  15617: {{1,1},{2,2},{3,3}}
  17719: {{1,2},{1,3},{2,3}}
  17863: {{1,1,1,1,1,1,1,1,1,1,1}}

Cf. A005117, A007016, A112798, A302242, A306017, A306021, A319056, A319189, A319190, A320324, A321698, A321699, A322554, A322833.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
normQ[sys_]:=Or[Length[sys]==0,Union@@sys==Range[Max@@Max@@sys]];
Select[Range[1000],And[SquareFreeQ[#],normQ[primeMS/@primeMS[#]],SameQ@@PrimeOmega/@primeMS[#],SameQ@@Last/@FactorInteger[Times@@primeMS[#]]]&]

A322704 Number of regular hypergraphs on n labeled vertices with no singletons.

Original entry on oeis.org

1, 1, 2, 4, 80, 209944

Offset: 0

Gus Wiseman, Dec 23 2018

We define a hypergraph to be any finite set of finite nonempty sets. A hypergraph is regular if all vertices have the same degree.

			The a(3) = 4 edge-sets:
  {}
  {{1,2,3}}
  {{1,2},{1,3},{2,3}}
  {{1,2},{1,3},{2,3},{1,2,3}}

Cf. A058891, A059441, A295193, A306021, A319189, A319190, A319612, A319729, A322698.

Table[Sum[SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[n],{2,n}]}],Sequence@@Table[{x[i],0,k},{i,n}]],{k,0,2^n-n-1}],{n,1,5}]

A322786 Irregular triangle read by rows where T(n,k) is the number of multiset partitions of a multiset with d = A027750(n,k) copies of each integer from 1 to n/d.

Original entry on oeis.org

1, 2, 2, 5, 3, 15, 9, 5, 52, 7, 203, 66, 31, 11, 877, 15, 4140, 712, 109, 22, 21147, 686, 30, 115975, 10457, 339, 42, 678570, 56, 4213597, 198091, 27036, 6721, 1043, 77, 27644437, 101, 190899322, 4659138, 2998, 135, 1382958545, 1688360, 58616, 176

Offset: 1

Gus Wiseman, Dec 26 2018

			Triangle begins:
        1
        2       2
        5       3
       15       9       5
       52       7
      203      66      31      11
      877      15
     4140     712     109      22
    21147     686      30
   115975   10457     339      42
   678570      56
  4213597  198091   27036    6721    1043      77
For example, row 4 counts the following multiset partitions.
  {{1,2,3,4}}        {{1,1,2,2}}        {{1,1,1,1}}
  {{1},{2,3,4}}      {{1},{1,2,2}}      {{1},{1,1,1}}
  {{1,2},{3,4}}      {{1,1},{2,2}}      {{1,1},{1,1}}
  {{1,3},{2,4}}      {{1,2},{1,2}}      {{1},{1},{1,1}}
  {{1,4},{2,3}}      {{2},{1,1,2}}      {{1},{1},{1},{1}}
  {{2},{1,3,4}}      {{1},{1},{2,2}}
  {{3},{1,2,4}}      {{1},{2},{1,2}}
  {{4},{1,2,3}}      {{2},{2},{1,1}}
  {{1},{2},{3,4}}    {{1},{1},{2},{2}}
  {{1},{3},{2,4}}
  {{1},{4},{2,3}}
  {{2},{3},{1,4}}
  {{2},{4},{1,3}}
  {{3},{4},{1,2}}
  {{1},{2},{3},{4}}

Andrew Howroyd, Table of n, a(n) for n = 1..207 (first 50 rows)

Row sums are A322784. First column is A000110.

Cf. A001055, A005176, A027750, A056239, A072774, A100778, A219727, A295193, A306017, A319190, A319612, A322784, A322785, A322787, A322788, A322792.

u[n_,k_]:=u[n,k]=If[n==1,1,Sum[u[n/d,d],{d,Select[Rest[Divisors[n]],#<=k&]}]];
Table[Table[u[Array[Prime,n/d,1,Times]^d,Array[Prime,n/d,1,Times]^d],{d,Divisors[n]}],{n,10}]

\\ needs T(n,k) from A219727.
Row(n)={[T(d,n/d) | d<-divisors(n)]}
{ for(n=1, 12, print(Row(n))) } \\ Andrew Howroyd, Jan 11 2020

T(n,k) = A001055(A002110(n/d)^d), where d = A027750(n,k).

T(n,k) = A219727(d, n/d), where d = A027750(n, k). - Andrew Howroyd, Jan 11 2020

Edited by Peter Munn, Mar 05 2025

A322787 Irregular triangle read by rows where T(n,k) is the number of non-isomorphic multiset partitions of a multiset with d = A027750(n, k) copies of each integer from 1 to n/d.

Original entry on oeis.org

1, 2, 2, 3, 3, 5, 7, 5, 7, 7, 11, 23, 21, 11, 15, 15, 22, 79, 66, 22, 30, 162, 30, 42, 274, 192, 42, 56, 56, 77, 1003, 1636, 1338, 565, 77, 101, 101, 135, 3763, 1579, 135, 176, 19977, 10585, 176, 231, 14723, 43686, 4348, 231, 297, 297, 385, 59663, 298416, 82694, 11582, 385

Offset: 1

Gus Wiseman, Dec 26 2018

			Triangle begins:
   1
   2   2
   3   3
   5   7   5
   7   7
  11  23  21  11
  15  15
  22  79  66  22
  30 162  30
  42 274 192  42
Non-isomorphic representatives of the multiset partitions counted under row 6:
{123456}           {112233}           {111222}           {111111}
{1}{23456}         {1}{12233}         {1}{11222}         {1}{11111}
{12}{3456}         {11}{2233}         {11}{1222}         {11}{1111}
{123}{456}         {112}{233}         {111}{222}         {111}{111}
{1}{2}{3456}       {12}{1233}         {112}{122}         {1}{1}{1111}
{1}{23}{456}       {123}{123}         {12}{1122}         {1}{11}{111}
{12}{34}{56}       {1}{1}{2233}       {1}{1}{1222}       {11}{11}{11}
{1}{2}{3}{456}     {1}{12}{233}       {1}{11}{222}       {1}{1}{1}{111}
{1}{2}{34}{56}     {11}{22}{33}       {11}{12}{22}       {1}{1}{11}{11}
{1}{2}{3}{4}{56}   {11}{23}{23}       {1}{12}{122}       {1}{1}{1}{1}{11}
{1}{2}{3}{4}{5}{6} {1}{2}{1233}       {1}{2}{1122}       {1}{1}{1}{1}{1}{1}
                   {12}{13}{23}       {12}{12}{12}
                   {1}{23}{123}       {2}{11}{122}
                   {2}{11}{233}       {1}{1}{1}{222}
                   {1}{1}{2}{233}     {1}{1}{12}{22}
                   {1}{1}{22}{33}     {1}{1}{2}{122}
                   {1}{1}{23}{23}     {1}{2}{11}{22}
                   {1}{2}{12}{33}     {1}{2}{12}{12}
                   {1}{2}{13}{23}     {1}{1}{1}{2}{22}
                   {1}{2}{3}{123}     {1}{1}{2}{2}{12}
                   {1}{1}{2}{2}{33}   {1}{1}{1}{2}{2}{2}
                   {1}{1}{2}{3}{23}
                   {1}{1}{2}{2}{3}{3}

Andrew Howroyd, Table of n, a(n) for n = 1..207 (rows 1..50)

Row sums are A306017. First column is A000041.

Cf. A001055, A005176, A027750, A056239, A072774, A100778, A295193, A306018, A318951, A319190, A319612, A322784, A322785, A322788, A322792.

\\ See A318951 for RowSumMats
row(n)={my(d=divisors(n)); vector(#d, i, RowSumMats(n/d[i], n, d[i]))}
{ for(n=1, 15, print(row(n))) } \\ Andrew Howroyd, Feb 02 2022

Terms a(28) and beyond from Andrew Howroyd, Feb 02 2022

Name edited by Peter Munn, Mar 05 2025

A322789 Irregular triangle read by rows where T(n,k) is the number of non-isomorphic uniform multiset partitions of a multiset with d = A027750(n,k) copies of each integer from 1 to n/d.

Original entry on oeis.org

1, 2, 2, 2, 2, 3, 4, 3, 2, 2, 4, 7, 6, 4, 2, 2, 4, 10, 8, 4, 3, 7, 3, 4, 12, 8, 4, 2, 2, 6, 32, 35, 31, 18, 6, 2, 2, 4, 21, 10, 4, 4, 47, 29, 4, 5, 49, 72, 19, 5, 2, 2, 6, 81, 170, 71, 24, 6, 2, 2, 6, 138, 478, 296, 32, 6, 4, 429, 76, 4, 4, 64, 14, 4

Offset: 1

Gus Wiseman, Dec 26 2018

A multiset partition is uniform if all parts have the same size.

			Triangle begins:
  1
  2  2
  2  2
  3  4  3
  2  2
  4  7  6  4
  2  2
  4 10  8  4
  3  7  3
  4 12  8  4
Non-isomorphic representatives of the multiset partitions counted under row 6:
{123456}           {112233}           {111222}           {111111}
{123}{456}         {112}{233}         {111}{222}         {111}{111}
{12}{34}{56}       {123}{123}         {112}{122}         {11}{11}{11}
{1}{2}{3}{4}{5}{6} {11}{22}{33}       {11}{12}{22}       {1}{1}{1}{1}{1}{1}
                   {11}{23}{23}       {12}{12}{12}
                   {12}{13}{23}       {1}{1}{1}{2}{2}{2}
                   {1}{1}{2}{2}{3}{3}

Andrew Howroyd, Table of n, a(n) for n = 1..338 (rows 1..75)

Row sums are A319056. First column is A000005.

Cf. A001055, A005176, A027750, A056239, A072774, A100778, A295193, A306017, A306018, A319190, A319612, A322784, A322785, A322787, A322792.

Terms a(28) and beyond from Andrew Howroyd, Feb 03 2022

Name edited by Peter Munn, Mar 05 2025

A331129 Number of n-regular hypergraphs on 6 labeled vertices.

Original entry on oeis.org

1, 203, 19232, 904580, 24537905, 425677958, 5064948309, 43418499491, 277921468720, 1364366313210, 5242437628968, 16014094403124, 39357448344781, 78528595223300, 128048008057615, 171403741608326, 188847475249322, 171403741608326, 128048008057615, 78528595223300

Offset: 0

Andrew Howroyd, Jan 10 2020

The sums of all terms is A319190(6) + 1. The extra 1 comes from the empty hypergraph.

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

Column k=6 of A188445.

Cf. A319190, A331127.

Terms a(16) and beyond from Andrew Howroyd, Mar 12 2020

A322705 Number of k-uniform k-regular hypergraphs spanning n vertices, for some 1 <= k <= n.

Original entry on oeis.org

1, 1, 1, 2, 5, 26, 472, 23342

Offset: 0

Gus Wiseman, Dec 23 2018

We define a hypergraph to be any finite set of finite nonempty sets. A hypergraph is k-uniform if all edges contain exactly k vertices, and k-regular if all vertices belong to exactly k edges. The span of a hypergraph is the union of its edges.

			The a(3) = 2 hypergraphs:
  {{1},{2},{3}}
  {{1,2},{1,3},{2,3}}
The a(4) = 5 hypergraphs:
  {{1},{2},{3},{4}}
  {{1,2},{1,3},{2,4},{3,4}}
  {{1,2},{1,4},{2,3},{3,4}}
  {{1,3},{1,4},{2,3},{2,4}}
  {{1,2,3},{1,2,4},{1,3,4},{2,3,4}}
The a(5) = 26 hypergraphs:
  {{1},{2},{3},{4},{5}}
  {{1,2},{1,3},{2,4},{3,5},{4,5}}
  {{1,2},{1,3},{2,5},{3,4},{4,5}}
  {{1,2},{1,4},{2,3},{3,5},{4,5}}
  {{1,2},{1,4},{2,5},{3,4},{3,5}}
  {{1,2},{1,5},{2,3},{3,4},{4,5}}
  {{1,2},{1,5},{2,4},{3,4},{3,5}}
  {{1,3},{1,4},{2,3},{2,5},{4,5}}
  {{1,3},{1,4},{2,4},{2,5},{3,5}}
  {{1,3},{1,5},{2,3},{2,4},{4,5}}
  {{1,3},{1,5},{2,4},{2,5},{3,4}}
  {{1,4},{1,5},{2,3},{2,4},{3,5}}
  {{1,4},{1,5},{2,3},{2,5},{3,4}}
  {{1,2,3},{1,2,4},{1,3,5},{2,4,5},{3,4,5}}
  {{1,2,3},{1,2,4},{1,4,5},{2,3,5},{3,4,5}}
  {{1,2,3},{1,2,5},{1,3,4},{2,4,5},{3,4,5}}
  {{1,2,3},{1,2,5},{1,4,5},{2,3,4},{3,4,5}}
  {{1,2,3},{1,3,4},{1,4,5},{2,3,5},{2,4,5}}
  {{1,2,3},{1,3,5},{1,4,5},{2,3,4},{2,4,5}}
  {{1,2,4},{1,2,5},{1,3,4},{2,3,5},{3,4,5}}
  {{1,2,4},{1,2,5},{1,3,5},{2,3,4},{3,4,5}}
  {{1,2,4},{1,3,4},{1,3,5},{2,3,5},{2,4,5}}
  {{1,2,4},{1,3,5},{1,4,5},{2,3,4},{2,3,5}}
  {{1,2,5},{1,3,4},{1,3,5},{2,3,4},{2,4,5}}
  {{1,2,5},{1,3,4},{1,4,5},{2,3,4},{2,3,5}}
  {{1,2,3,4},{1,2,3,5},{1,2,4,5},{1,3,4,5},{2,3,4,5}}

Row sums of A322706.

Cf. A005176, A058891, A059441, A116539, A295193, A299353, A306021, A319056, A319189, A319190, A319612, A321721, A322704.

Table[Sum[SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[n],{k}]}],Sequence@@Table[{x[i],0,k},{i,n}]],{k,1,n}],{n,1,6}]

A322706 Regular triangle read by rows where T(n,k) is the number of k-regular k-uniform hypergraphs spanning n vertices.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 3, 1, 0, 1, 12, 12, 1, 0, 1, 70, 330, 70, 1, 0, 1, 465, 11205, 11205, 465, 1, 0, 1, 3507, 505505, 2531200, 505505, 3507, 1, 0

Offset: 1

Gus Wiseman, Dec 23 2018

We define a hypergraph to be any finite set of finite nonempty sets. A hypergraph is k-uniform if all edges contain exactly k vertices, and k-regular if all vertices belong to exactly k edges. The span of a hypergraph is the union of its edges.

			Triangle begins:
  1
  1       0
  1       1       0
  1       3       1       0
  1      12      12       1       0
  1      70     330      70       1       0
  1     465   11205   11205     465       1       0
  1    3507  505505 2531200  505505    3507       1       0
Row 4 counts the following hypergraphs:
  {{1}{2}{3}{4}}  {{12}{13}{24}{34}}  {{123}{124}{134}{234}}
                  {{12}{14}{23}{34}}
                  {{13}{14}{23}{24}}

Row sums are A322705. Second column is A001205. Third column is A110101.

Cf. A005176, A058891, A059441, A295193, A306021, A319056, A319189, A319190, A319612, A321721, A322704.

Table[Table[SeriesCoefficient[Product[1+Times@@x/@s,{s,Subsets[Range[n],{k}]}],Sequence@@Table[{x[i],0,k},{i,n}]],{k,1,n}],{n,1,6}]

cp's OEIS Frontend

A322788 Irregular triangle read by rows where T(n,k) is the number of uniform multiset partitions of a multiset with d = A027750(n,k) copies of each integer from 1 to n/d.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A331127 Number of n-regular hypergraphs on 5 labeled vertices.

Views

Author

Keywords

Comments

Crossrefs

A322703 Squarefree MM-numbers of strict uniform regular multiset systems spanning an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A322704 Number of regular hypergraphs on n labeled vertices with no singletons.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A322786 Irregular triangle read by rows where T(n,k) is the number of multiset partitions of a multiset with d = A027750(n,k) copies of each integer from 1 to n/d.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A322787 Irregular triangle read by rows where T(n,k) is the number of non-isomorphic multiset partitions of a multiset with d = A027750(n, k) copies of each integer from 1 to n/d.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

Extensions

A322789 Irregular triangle read by rows where T(n,k) is the number of non-isomorphic uniform multiset partitions of a multiset with d = A027750(n,k) copies of each integer from 1 to n/d.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Extensions

A331129 Number of n-regular hypergraphs on 6 labeled vertices.

Views

Author

Keywords

Comments

Links

Crossrefs

Extensions

A322705 Number of k-uniform k-regular hypergraphs spanning n vertices, for some 1 <= k <= n.

Views

Author

Keywords