OFFSET
1,3
LINKS
M. Bousquet, G. Labelle and P. Leroux, Enumeration of planar two-face maps, Discrete Math., vol. 222 (2000), 1-25.
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Valery A. Liskovets, Oct 19 2005
STATUS
approved