|
|
A288075
|
|
a(n) is the number of rooted maps with n edges and one face on an orientable surface of genus 3.
|
|
10
|
|
|
1485, 56628, 1169740, 17454580, 211083730, 2198596400, 20465052608, 174437377400, 1384928666550, 10369994005800, 73920866362200, 505297829133240, 3331309741059300, 21280393666593600, 132216351453357600, 801482122777393200, 4752780295205269470, 27632111202537355800
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
6,1
|
|
LINKS
|
|
|
MATHEMATICA
|
A000108ser[n_] := (1 - Sqrt[1 - 4*x])/(2*x) + O[x]^(n+1);
A288075ser[n_] := (y = A000108ser[n+1]; -11*y*(y-1)^6*(135*y^4 + 558*y^3 - 400*y^2 - 316*y + 158)/(y-2)^17);
Drop[CoefficientList[A288075ser[20], x], 6] (* Jean-François Alcover, Jun 13 2017, translated from PARI *)
|
|
PROG
|
(PARI)
A000108_ser(N) = my(x='x+O('x^(N+1))); (1 - sqrt(1-4*x))/(2*x);
-11*y*(y-1)^6*(135*y^4 + 558*y^3 - 400*y^2 - 316*y + 158)/(y-2)^17;
};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|