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.

A343094 Number of connected loopless labeled multigraphs with n edges.

This page as a plain text file.
%I A343094 #12 Jan 02 2022 14:53:16
%S A343094 1,1,4,24,201,2199,29879,486231,9228867,200272157,4892538679,
%T A343094 132901744486,3974163191604,129735825879843,4591187990365503,
%U A343094 175081375829138149,7157470516097359747,312267811360305253384,14481803617066951613463,711413177916751077562759
%N A343094 Number of connected loopless labeled multigraphs with n edges.
%H A343094 Andrew Howroyd, <a href="/A343094/b343094.txt">Table of n, a(n) for n = 0..200</a>
%t A343094 S[m_, n_] := Binomial[Binomial[m, 2] + n - 1, n];
%t A343094 R[nn_] := Module[{cc = Array[0&, {nn, nn}]}, cc[[1, 1]] = 1; For[m = 1, m <= nn, m++, For[n = 1, n <= nn - 1, n++, cc[[m, n + 1]] = S[m, n] - S[m - 1, n] - Sum[Sum[Binomial[m - 1, i - 1]*cc[[i, j + 1]]*S[m - i, n - j], {j, 1, n}], {i, 2, m - 1}]]]; cc // Transpose];
%t A343094 Total /@ R[20] (* _Jean-François Alcover_, Apr 15 2021, after _Andrew Howroyd_'s code for A290776 *)
%o A343094 (PARI)
%o A343094 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}
%o A343094 seq(n)={Vec(vecsum(Connected(vector(2*n, j, 1/(1 - x + O(x*x^n))^binomial(j, 2)))))}
%Y A343094 Row sums of A290776.
%Y A343094 The unlabeled version is A050535.
%Y A343094 Cf. A322152.
%K A343094 nonn
%O A343094 0,3
%A A343094 _Andrew Howroyd_, Apr 14 2021