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.

Showing 1-2 of 2 results.

A253186 Number of connected unlabeled loopless multigraphs with 3 vertices and n edges.

Original entry on oeis.org

0, 0, 1, 2, 3, 4, 6, 7, 9, 11, 13, 15, 18, 20, 23, 26, 29, 32, 36, 39, 43, 47, 51, 55, 60, 64, 69, 74, 79, 84, 90, 95, 101, 107, 113, 119, 126, 132, 139, 146, 153, 160, 168, 175, 183, 191, 199, 207, 216, 224, 233, 242, 251, 260, 270, 279, 289, 299, 309, 319, 330
Offset: 0

Views

Author

Danny Rorabaugh, Mar 23 2015

Keywords

Comments

a(n) is also the number of ways to partition n into 2 or 3 parts.
a(n) is also the dimension of linear space of three-dimensional 2n-homogeneous polynomial vector fields, which have an octahedral symmetry (for a given representation), which are solenoidal, and which are vector fields on spheres. - Giedrius Alkauskas, Sep 30 2017
Apparently a(n) = A244239(n-6) for n > 4. - Georg Fischer, Oct 09 2018
a(n) is also the number of loopless connected n-regular multigraphs with 4 nodes. - Natan Arie Consigli, Aug 09 2019
a(n) is also the number of inequivalent linear [n, k=2] binary codes without 0 columns (see A034253 for more details). - Petros Hadjicostas, Oct 02 2019
Differs from A160138 only by the offset. - R. J. Mathar, May 15 2023
From Allan Bickle, Jul 13 2025: (Start)
a(n) is the number of theta graphs with n-2 vertices, or n-1 edges. Equivalently, the number of 2-connected graphs with n-2 vertices and n-1 edges.
A theta graph has three paths with length at least 1 identified at their endpoints. There can at most one path with length 1.
For instance the theta graphs with 6 vertices have paths with lengths (1,2,4), (1,3,3), or (2,2,2), so a(6-2) = 3. (End)

Examples

			On vertex set {a, b, c}, every connected multigraph with n = 5 edges is isomorphic to a multigraph with one of the following a(5) = 4 edge multisets: {ab, ab, ab, ab, ac}, {ab, ab, ab, ac, ac}, {ab, ab, ab, ac, bc}, and {ab, ab, ac, ac, bc}.
		

Crossrefs

Column k = 3 of A191646 and column k = 2 of A034253.
First differences of A034198 (excepting the first term).
Cf. A213654, A213655, A213668 (theta graphs).

Programs

  • Magma
    [Floor(n/2) + Floor((n^2 + 6)/12): n in [0..70]]; // Vincenzo Librandi, Mar 24 2015
  • Mathematica
    CoefficientList[Series[- x^2 (x^3 - x - 1) / ((1 - x) (1 - x^2) (1 - x^3)), {x, 0, 70}], x] (* Vincenzo Librandi, Mar 24 2015 *)
    LinearRecurrence[{1, 1, 0, -1, -1, 1}, {0, 0, 1, 2, 3, 4}, 61] (* Robert G. Wilson v, Oct 11 2017 *)
    a[n_]:=Floor[n/2] + Floor[(n^2 + 6)/12]; Array[a, 70, 0] (* Stefano Spezia, Oct 09 2018 *)
  • Sage
    [floor(n/2) + floor((n^2 + 6)/12) for n in range(70)]
    

Formula

a(n) = A004526(n) + A069905(n).
a(n) = floor(n/2) + floor((n^2 + 6)/12).
G.f.: x^2*(x^3 - x - 1)/((x - 1)^2*(x^2 - 1)*(x^2 + x + 1)).

A213655 Number of dominating subsets of the theta-graph TH(2,2,n) (n>=1). A tribonacci sequence with initial values 13, 23, and 41.

Original entry on oeis.org

13, 23, 41, 77, 141, 259, 477, 877, 1613, 2967, 5457, 10037, 18461, 33955, 62453, 114869, 211277, 388599, 714745, 1314621, 2417965, 4447331, 8179917, 15045213, 27672461, 50897591, 93615265, 172185317, 316698173, 582498755
Offset: 1

Views

Author

Emeric Deutsch, Jun 18 2012

Keywords

Comments

A theta-graph is a graph consisting of two vertices of degree three, connected by three paths of one or more edges each. In the theta-graph TH(2,2,n) the three paths have 2, 2, and n edges, respectively.
a(n) = Sum_{k>=1} A213654(n,k).

Examples

			a(1)=13. TH(2,2,1) is the graph obtained from the cycle ABCD by joining vertices A and C. All 2^4 - 1 = 15 nonempty subsets of {A,B,C,D} are dominating with the exception of {B} and {D}.
		

References

  • S. Alikhani and Y. H. Peng, Dominating sets and domination polynomials of certain graphs, II, Opuscula Math., 30, No. 1, 2010, 37-51.

Crossrefs

Cf. A213654.

Programs

  • Maple
    a := proc (n) if n = 1 then 13 elif n = 2 then 23 elif n = 3 then 41 else a(n-1)+a(n-2)+a(n-3) end if end proc: seq(a(n), n = 1 .. 30);
  • Mathematica
    LinearRecurrence[{1, 1, 1}, {13, 23, 41}, 30] (* Jean-François Alcover, Dec 02 2017 *)

Formula

a(n) = a(n-1) + a(n-2) + a(n-3) for n >= 4; a(1)=13, a(2)=23, a(3)=41.
G.f.: -x*(13+10*x+5*x^2)/(-1+x+x^2+x^3). - R. J. Mathar, Jul 22 2022
Showing 1-2 of 2 results.