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-3 of 3 results.

A112944 Number of unrooted regular odd-valent planar maps with 2 vertices; maps are considered up to orientation-preserving homeomorphisms and the vertices are of valency 2n+1.

Original entry on oeis.org

1, 2, 7, 39, 308, 3013, 33300, 394340, 4878109, 62232321, 812825244, 10818489817, 146250545528, 2003199281223, 27747288947266, 388087900316025, 5474206895126243, 77795972452841542, 1112947041203866164, 16016508647052018408, 231727628211887783830, 3368855109532696440867
Offset: 0

Views

Author

Valery A. Liskovets, Oct 10 2005

Keywords

Examples

			There exist 2 planar maps with two 3-valent vertices: a map with three parallel edges and a map with one loop in each vertex and a link. Therefore a(1)=2.
		

Crossrefs

Programs

  • Mathematica
    a[n_] := (1/2) Binomial[2n, n] + (1/(4n+2)) Sum[EulerPhi[k] Binomial[2 Floor[n/k], Floor[n/k]]^2, {k, Divisors[2n+1]}];
    Table[a[n], {n, 0, 21}] (* Jean-François Alcover, Jul 24 2018 *)
  • PARI
    a(n) = binomial(2*n, n)/2 + sumdiv(2*n+1, k, eulerphi(k)* binomial(2*(n\k), (n\k))^2)/(4*n+2); \\ Michel Marcus, Oct 14 2015

Formula

a(n) = (1/2)binomial(2n, n) + (1/(4n+2))sum_{k|(2n+1)}phi(k)* binomial(2*floor(n/k), floor(n/k))^2, where phi(k) is the Euler function A000010.

Extensions

More terms from Michel Marcus, Oct 14 2015

A112946 Number of unrooted regular odd-valent planar maps with 6 vertices; maps are considered up to orientation-preserving homeomorphisms and the vertices are of valency 2n+1.

Original entry on oeis.org

0, 26, 111096, 513654400, 2243178389200, 9550256850912960, 40141310067406592352, 167483578096089845880576, 695587719666862982630642400, 2880023438585172541459822939200
Offset: 0

Views

Author

Valery A. Liskovets, Oct 10 2005

Keywords

Comments

There is a closed formula.

Crossrefs

Programs

  • Mathematica
    a[n_] := With[{b = Binomial[2n, n]}, (1/120)(36n-1) n^2 b^6 + (3n^2 b^3)/4 + n b^2/3 + (4/5) Boole[Divisible[2n+1, 5]] Binomial[2 Floor[n/5], Floor[n/5]] b];
    a /@ Range[0, 9] (* Jean-François Alcover, Sep 01 2019 *)

A112948 Number of unrooted 3-regular planar maps with 2n vertices, up to orientation-preserving isomorphisms.

Original entry on oeis.org

2, 6, 26, 191, 1904, 22078, 282388, 3848001, 54953996, 814302292
Offset: 1

Views

Author

Valery A. Liskovets, Oct 10 2005

Keywords

Comments

A 3-regular map is a regular map with valency 3.

Examples

			There exist 2 planar maps with two 3-valent vertices: a map with three parallel edges and a map with one loop in each vertex and a link connecting the vertices. Therefore a(1)=2.
		

Crossrefs

Cf. A112944, A112945, A112949 (5-regular), A005470.
3-regular maps on the torus: A292408.
Showing 1-3 of 3 results.