A069839 Number of different (unlabeled) 2-cell embeddings of the complete graph K_n on n vertices into orientable surfaces.

1, 1, 1, 3, 78, 265764, 71095150000, 1791180894322714050, 5782448787773327324756945480, 3129263982719398327413605440811466528960, 359946241929477448403523246795300556527932947115524992

Offset

1,4

Links

Table of n, a(n) for n=1..11.

B. P. Mull, R. G. Rieper and A. T. White, Enumerating 2-cell imbeddings of connected graphs, Proc. Amer. Math. Soc. 103 (1988), 321-330.

A. T. White, An introduction to random topological graph theory, Comb., Probab. Comput. 3 (1994), 545-555.

Formula

a(n)=sum_(d|n) (n-2)!^(n/d)/(d^(n/d)*(n/d)!)+ sum_(d|n-1, d>1) phi(d)*(n-2)!^((n-1)/d))/(n-1), n>1, where phi(n) is the Euler totient function A000010.

Mathematica

f[n_] := Block[{d = Divisors[n], d1 = Drop[ Divisors[n - 1], 1]}, Apply[ Plus, (n - 2)!^(n/d)/(d^(n/d)*(n/d)!)] + Apply[ Plus, EulerPhi[d1]*(n - 2)!^((n - 1)/d1)/(n - 1)]]; f[1] = 1; Table[ f[n], {n, 2, 13}]

Crossrefs

Cf. A069840.

Sequence in context: A306817 A306818 A092416 * A222192 A236069 A364947

Adjacent sequences: A069836 A069837 A069838 * A069840 A069841 A069842

Keyword

nonn

Author

Valery A. Liskovets, Apr 22 2002

Extensions

Edited and extended by Robert G. Wilson v and Vladeta Jovovic, May 04 2002

Status

approved