A321254 -id:A321254 - cp's OEIS frontend

A322114 Regular triangle read by rows where T(n,k) is the number of unlabeled connected graphs with loops with n edges and k vertices, 1 <= k <= n+1.

1, 1, 1, 0, 1, 1, 0, 1, 3, 2, 0, 0, 3, 6, 3, 0, 0, 2, 11, 14, 6, 0, 0, 1, 13, 35, 33, 11, 0, 0, 0, 10, 61, 112, 81, 23, 0, 0, 0, 5, 75, 262, 347, 204, 47, 0, 0, 0, 2, 68, 463, 1059, 1085, 526, 106, 0, 0, 0, 1, 49, 625, 2458, 4091, 3348, 1376, 235

Offset: 0

Gus Wiseman, Nov 26 2018

			Triangle begins:
   1
   1   1
   0   1   1
   0   1   3   2
   0   0   3   6   3
   0   0   2  11  14   6
   0   0   1  13  35  33  11
Non-isomorphic representatives of the graphs counted in row 4:
  {{2}{3}{12}{13}}   {{4}{12}{23}{34}}   {{13}{24}{35}{45}}
  {{2}{3}{13}{23}}   {{4}{13}{23}{34}}   {{14}{25}{35}{45}}
  {{3}{12}{13}{23}}  {{4}{13}{24}{34}}   {{15}{25}{35}{45}}
                     {{4}{14}{24}{34}}
                     {{12}{13}{24}{34}}
                     {{14}{23}{24}{34}}

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

Row sums are A191970. Last column is A000055.

Cf. A000664, A007716, A007718, A007719, A054923, A191646, A275421, A317533, A321254.

InvEulerMT(u)={my(n=#u, p=log(1+x*Ser(u)), vars=variables(p)); Vec(serchop( sum(i=1, n, moebius(i)*substvec(p + O(x*x^(n\i)), vars, apply(v->v^i,vars))/i), 1))}
permcount(v) = {my(m=1,s=0,k=0,t); for(i=1,#v,t=v[i]; k=if(i>1&&t==v[i-1],k+1,1); m*=t*k;s+=t); s!/m}
edges(v,t) = {prod(i=2, #v, prod(j=1, i-1, my(g=gcd(v[i],v[j])); t(v[i]*v[j]/g)^g )) * prod(i=1, #v, my(c=v[i]); t(c)^((c+1)\2)*if(c%2, 1, t(c/2)))}
G(n, x)={my(s=0); forpart(p=n, s+=permcount(p)*edges(p,i->1+x^i)); s/n!}
T(n)={Mat([Col(p+O(y^n), -n) | p<-InvEulerMT(vector(n, k, G(k, y + O(y^n))))])}
{my(A=T(10)); for(n=1, #A, print(A[n,1..n]))} \\ Andrew Howroyd, Oct 22 2019

Terms a(28) and beyond from Andrew Howroyd, Oct 22 2019

A036250 Number of trees of nonempty sets with n points. (Each node is a set of 1 or more points.)

Original entry on oeis.org

1, 1, 2, 3, 7, 14, 35, 85, 231, 633, 1845, 5461, 16707, 51945, 164695, 529077, 1722279, 5664794, 18813369, 62996850, 212533226, 721792761, 2466135375, 8471967938, 29249059293, 101440962296, 353289339927, 1235154230060, 4333718587353, 15255879756033

Offset: 0

Christian G. Bower, Nov 15 1998

nonn

Also the number of non-isomorphic connected multigraphs with loops with n edges and multiset density -1, where the multiset density of a multiset partition is the sum of the numbers of distinct vertices in each part minus the number of parts minus the number of vertices. - Gus Wiseman, Nov 28 2018

Alois P. Heinz, Table of n, a(n) for n = 0..1717
Richard J. Mathar, Counting Connected Graphs without Overlapping Cycles, arXiv:1808.06264 [math.CO], 2018.
Gus Wiseman, Non-isomorphic representatives of the a(1) = 2 through a(5) = 35 connected multigraphs with loops with multiset density -1.
Index entries for sequences related to trees

Essentially the same as A036251.

Cf. A000055, A007718, A007719, A038052, A191646, A303837, A321155, A321229, A321254, A321256, A322111.

max = 30; B[] = 1; Do[B[x] = x*Exp[Sum[(B[x^k] + x^k)/k + O[x]^n, {k, 1, n}]] // Normal, {n, 1, max}]; A[x_] = B[x] - B[x]^2/2 + B[x^2]/2; CoefficientList[1 + A[x] + O[x]^max, x] (* Jean-François Alcover, Jan 28 2019 *)

G.f.: B(x) - B^2(x)/2 + B(x^2)/2, where B(x) is g.f. for A036249.

A322147 Regular triangle read by rows where T(n,k) is the number of labeled connected graphs with loops with n edges and k vertices, 1 <= k <= n+1.

Original entry on oeis.org

1, 1, 1, 0, 2, 3, 0, 1, 10, 16, 0, 0, 12, 79, 125, 0, 0, 6, 162, 847, 1296, 0, 0, 1, 179, 2565, 11436, 16807, 0, 0, 0, 116, 4615, 47100, 185944, 262144, 0, 0, 0, 45, 5540, 121185, 987567, 3533720, 4782969, 0, 0, 0, 10, 4720, 220075, 3376450, 23315936, 76826061, 100000000

Offset: 0

Gus Wiseman, Nov 28 2018

			Triangle begins:
  1
  1     1
  0     2     3
  0     1    10    16
  0     0    12    79   125
  0     0     6   162   847  1296
  0     0     1   179  2565 11436 16807

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

Row sums are A322151. Last column is A000272.
Column sums are A062740.
Cf. A000664, A007718, A007719, A054923, A191646, A275421, A321254, A322114, A322115, A322137.

multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
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]]]]]]]]];
Table[If[n==0,1,Length[Select[Subsets[multsubs[Range[k],2],{n}],And[Union@@#==Range[k],Length[csm[#]]==1]&]]],{n,0,6},{k,1,n+1}]

Connected(v)={my(u=vector(#v)); for(n=1, #u, u[n]=v[n] - sum(k=1, n-1, binomial(n-1, k)*v[k]*u[n-k])); u}
M(n)={Mat([Col(p, -(n+1)) | p<-Connected(vector(2*n, j, (1 + x + O(x*x^n) )^binomial(j+1,2)))[1..n+1]])}
{ my(T=M(10)); for(n=1, #T, print(T[n,][1..n])) } \\ Andrew Howroyd, Nov 29 2018

Terms a(28) and beyond from Andrew Howroyd, Nov 29 2018

A322151 Number of labeled connected graphs with loops with n edges (the vertices are {1,2,...,k} for some k).

Original entry on oeis.org

1, 2, 5, 27, 216, 2311, 30988, 499919, 9431026, 203743252, 4960335470, 134382267082, 4009794148101, 130668970606412, 4617468180528235, 175867725701333896, 7182126650899080024, 313063334893103361130, 14507460736615554141354, 712192629608088061633746

Offset: 0

Gus Wiseman, Nov 28 2018

nonn

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

Row sums of A322147. The unlabeled version is A191970.

Cf. A000664, A002905, A007718, A013922, A054923, A057500, A191646, A291842 (planar case), A321254, A322114, A322115.

multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
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]]]]]]]]];
Table[Length[Select[Subsets[multsubs[Range[n+1],2],{n}],And[Union@@#==Range[Max@@Union@@#],Length[csm[#]]==1]&]],{n,5}]

Connected(v)={my(u=vector(#v)); for(n=1, #u, u[n]=v[n] - sum(k=1, n-1, binomial(n-1, k)*v[k]*u[n-k])); u}
seq(n)={Vec(vecsum(Connected(vector(2*n, j, (1 + x + O(x*x^n))^binomial(j+1,2)))))} \\ Andrew Howroyd, Nov 28 2018

Terms a(7) and beyond from Andrew Howroyd, Nov 28 2018

A321253 Number of non-isomorphic strict connected weight-n multiset partitions with multiset density -1.

Original entry on oeis.org

0, 1, 2, 5, 12, 28, 78, 202, 578, 1650, 4904

Offset: 0

Gus Wiseman, Nov 01 2018

The multiset density of a multiset partition is the sum of the numbers of distinct vertices in each part minus the number of parts minus the number of vertices.

The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

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

Cf. A000272, A007716, A007718, A030019, A052888, A134954, A304867, A304887, A318697, A321155, A321194, A321228, A321229, A321254.

A322133 Regular triangle read by rows where T(n,k) is the number of non-isomorphic connected multiset partitions of weight n with k vertices.

Original entry on oeis.org

1, 0, 1, 0, 2, 1, 0, 3, 2, 1, 0, 5, 8, 3, 1, 0, 7, 17, 12, 3, 1, 0, 11, 46, 45, 18, 4, 1, 0, 15, 94, 141, 76, 23, 4, 1, 0, 22, 212, 432, 333, 124, 30, 5, 1, 0, 30, 416, 1231, 1254, 622, 178, 37, 5, 1, 0, 42, 848, 3346, 4601, 2914, 1058, 252, 45, 6, 1

Offset: 0

Gus Wiseman, Nov 27 2018

The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

			Triangle begins:
    1
    0    1
    0    2    1
    0    3    2    1
    0    5    8    3    1
    0    7   17   12    3    1
    0   11   46   45   18    4    1
    0   15   94  141   76   23    4    1
    0   22  212  432  333  124   30    5    1
    0   30  416 1231 1254  622  178   37    5    1
    0   42  848 3346 4601 2914 1058  252   45    6    1
Non-isomorphic representatives of the multiset partitions counted in row 4:
  {{1,1,1,1}}        {{1,1,2,2}}      {{1,2,3,3}}    {{1,2,3,4}}
  {{1},{1,1,1}}      {{1,2,2,2}}      {{1,3},{2,3}}
  {{1,1},{1,1}}      {{1},{1,2,2}}    {{3},{1,2,3}}
  {{1},{1},{1,1}}    {{1,2},{1,2}}
  {{1},{1},{1},{1}}  {{1,2},{2,2}}
                     {{2},{1,2,2}}
                     {{1},{2},{1,2}}
                     {{2},{2},{1,2}}

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

Row sums are A007718.

Cf. A000664, A007716, A054923, A191646, A191970, A275421, A286520, A317672, A319719, A321155, A321254, A322114.

\\ Needs G(m,n) defined in A317533 (faster PARI).
InvEulerMTS(p)={my(n=serprec(p, x)-1, q=log(p), vars=variables(p)); sum(i=1, n, moebius(i)*substvec(q + O(x*x^(n\i)), vars, apply(v->v^i, vars))/i)}
T(n)={[Vecrev(p) | p <- Vec(1 + InvEulerMTS(y^n*G(n,n) + sum(k=0, n-1, y^k*(1 - y)*G(k,n))))]}
{ my(A=T(10)); for(i=1, #A, print(A[i])) } \\ Andrew Howroyd, Jan 15 2024

A321256 Regular triangle where T(n,k) is the number of non-isomorphic connected set systems of weight n with density -1 <= k <= n-2.

Original entry on oeis.org

1, 1, 0, 2, 0, 0, 4, 0, 0, 0, 6, 1, 0, 0, 0, 13, 5, 0, 0, 0, 0, 23, 12, 2, 0, 0, 0, 0, 49, 36, 11, 0, 0, 0, 0, 0, 100, 95, 39, 5, 0, 0, 0, 0, 0, 220, 262, 143, 32, 1, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Nov 01 2018

A set system is a finite set of finite nonempty sets. The density of a set system is the sum of sizes of each part (weight) minus the number of parts minus the number of vertices.

			Triangle begins:
    1
    1   0
    2   0   0
    4   0   0   0
    6   1   0   0   0
   13   5   0   0   0   0
   23  12   2   0   0   0   0
   49  36  11   0   0   0   0   0
  100  95  39   5   0   0   0   0   0
  220 262 143  32   1   0   0   0   0   0

First column is A321228. Row sums are A007718.

Cf. A007716, A030019, A056156, A283877, A293607, A300913, A319557, A321155, A321253, A321254.

A322134 Regular tetrangle where T(n,k,i) is the number of unlabeled connected multiset partitions of weight n with k vertices and i edges.

Original entry on oeis.org

1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 2, 1, 1, 2, 4, 2, 1, 2, 1, 0, 0, 0, 0, 0, 0, 1, 2, 2, 1, 1, 2, 7, 6, 2, 2, 6, 4, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 1, 3, 3, 2, 1, 1, 3, 14, 17, 9, 3, 3, 17, 18, 7, 2, 9, 7, 1, 3, 1, 0, 0

Offset: 0

Gus Wiseman, Nov 27 2018

			Tetrangle begins:
  1
.
  0 0
  1
.
  0 0 0
  1 1
  1
.
  0 0 0 0
  1 1 1
  1 1
  1
.
  0 0 0 0 0
  1 2 1 1
  2 4 2
  1 2
  1
.
  0 0 0 0 0 0
  1 2 2 1 1
  2 7 6 2
  2 6 4
  1 2
  1
.
  0  0  0  0  0  0  0
  1  3  3  2  1  1
  3 14 17  9  3
  3 17 18  7
  2  9  7
  1  3
  1
.
  0  0  0  0  0  0  0  0
  1  3  4  3  2  1  1
  3 20 33 24 11  3
  4 33 59 35 10
  3 24 35 14
  2 11 10
  1  3
  1

Triangle sums are A007718.

Cf. A007716, A054923, A191646, A191970, A275421, A286520, A317533, A317672, A321155, A321254, A322114.

cp's OEIS Frontend

A322114 Regular triangle read by rows where T(n,k) is the number of unlabeled connected graphs with loops with n edges and k vertices, 1 <= k <= n+1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

PARI

Extensions

A036250 Number of trees of nonempty sets with n points. (Each node is a set of 1 or more points.)

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A322147 Regular triangle read by rows where T(n,k) is the number of labeled connected graphs with loops with n edges and k vertices, 1 <= k <= n+1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A322151 Number of labeled connected graphs with loops with n edges (the vertices are {1,2,...,k} for some k).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A321253 Number of non-isomorphic strict connected weight-n multiset partitions with multiset density -1.

Views

Author

Keywords

Comments

Examples

Crossrefs

A322133 Regular triangle read by rows where T(n,k) is the number of non-isomorphic connected multiset partitions of weight n with k vertices.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

A321256 Regular triangle where T(n,k) is the number of non-isomorphic connected set systems of weight n with density -1 <= k <= n-2.

Views

Author

Keywords

Comments

Examples

Crossrefs

A322134 Regular tetrangle where T(n,k,i) is the number of unlabeled connected multiset partitions of weight n with k vertices and i edges.

Views

Author

Keywords

Examples

Crossrefs