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

A113182 Number of unrooted two-vertex (or, dually, two-face) regular planar maps of valency n considered up to orientation-preserving homeomorphism.

Original entry on oeis.org

1, 1, 2, 3, 7, 14, 39, 95, 308, 859, 3013, 9130, 33300, 106039, 394340, 1297295, 4878109, 16428300, 62232321, 213388961, 812825244, 2827645453, 10818489817, 38086408002, 146250545528, 520062618300, 2003199281223, 7184570776213
Offset: 1

Views

Author

Valery A. Liskovets, Oct 19 2005

Keywords

Comments

Bisections are A112944 and A113181.

Crossrefs

Programs

  • Mathematica
    a[n_] := If[OddQ[n], (1/(2n))(Sum[EulerPhi[d] Binomial[2 Floor[(n-1)/(2d)], Floor[(n-1)/(2d)]]^2, {d, Divisors[n]}] + n Binomial[n-1, (n-1)/2]), (1/4)((2 Sum[EulerPhi[d] Binomial[n/d-1, Floor[n/(2d)]]^2, {d, Divisors[ n]}])/n + Binomial[n, n/2])];
    Array[a, 28] (* Jean-François Alcover, Aug 30 2019 *)

A113183 Number of unrooted two-face maps in the plane (considered up to orientation-preserving homeomorphism) with the faces of equal degree n: planar maps with a distinguished outside face.

Original entry on oeis.org

1, 1, 2, 3, 8, 18, 58, 155, 546, 1592, 5774, 17798, 65676, 210362, 785248, 2588155, 9743348, 32832290, 124416022, 426685544, 1625465732, 5654938190, 21636274202, 76171463926, 292498386900, 1040120036300, 4006388161846, 14369121494126
Offset: 1

Views

Author

Valery A. Liskovets, Oct 19 2005

Keywords

Examples

			There exist 2 maps in the plane with two triangular faces: a triangle and a map consisting of a 2-path and a loop in its middle vertex that separates both ends. Therefore a(3) = 2.
		

Crossrefs

Programs

  • Mathematica
    a[n_] := DivisorSum[n, EulerPhi[#] * Binomial[n/# - 1, Floor[n/(2*#)]]^2 &] / n; Array[a, 30] (* Amiram Eldar, Aug 24 2023 *)
  • PARI
    a(n) = sumdiv(n, k, eulerphi(k)*binomial(n/k - 1, n\(2*k))^2)/n; \\ Michel Marcus, Oct 14 2015

Formula

a(n) = (1/n) Sum_{k|n} phi(k) C((n/k)-1,floor(n/(2k)))^2 where phi(k) is the Euler function A000010.
Showing 1-3 of 3 results.