A238355
Number of rooted maps of genus 5 containing n edges.
Original entry on oeis.org
59520825, 8608033980, 672868675017, 37680386599440, 1692352190653740, 64755027944420400, 2190839204960030106, 67194704604610557072, 1901727022434216910002, 50322107898515282999256, 1257582616997225194094310, 29916524874047762719113408, 681758763997451748190036272, 14960113428664295584816860864
Offset: 10
Rooted maps with n edges of genus g for 0 <= g <= 10:
A000168,
A006300,
A006301,
A104742,
A215402, this sequence,
A238356,
A238357,
A238358,
A238359,
A238360.
-
T[0, 0] = 1; T[n_, g_] /; g < 0 || g > n/2 = 0; T[n_, g_] := T[n, g] = ((4 n - 2)/3 T[n - 1, g] + (2 n - 3) (2 n - 2) (2 n - 1)/12 T[n - 2, g - 1] + 1/2 Sum[(2 k - 1) (2 (n - k) - 1) T[k - 1, i] T[n - k - 1, g - i], {k, 1, n - 1}, {i, 0, g}])/((n + 1)/6);
a[n_] := T[n, 5];
Table[a[n], {n, 10, 30}] (* Jean-François Alcover, Jul 20 2018 *)
-
\\ see A238396
-
A005159_ser(N) = my(x='x+O('x^(N+1))); (1 - sqrt(1-12*x))/(6*x);
A238355_ser(N) = {
my(y=A005159_ser(N+1));
y*(y-1)^10*(3149956*y^16 - 50399296*y^15 + 1641189689*y^14 - 12178227918*y^13 + 118643174857*y^12 - 572499071300*y^11 + 2690451915197*y^10 - 8657342508522*y^9 + 23652302179098*y^8 - 49891059998872*y^7 + 84432024838000*y^6 - 112355956173344*y^5 + 115338024848256*y^4 - 88846084908160*y^3 + 48488699816960*y^2 - 16837415717888*y + 2841312026112)/(243*(y-2)^22*(y+2)^13);
};
Vec(A238355_ser(14)) \\ Gheorghe Coserea, Jun 02 2017
A269924
Triangle read by rows: T(n,f) is the number of rooted maps with n edges and f faces on an orientable surface of genus 4.
Original entry on oeis.org
225225, 12317877, 12317877, 351683046, 792534015, 351683046, 7034538511, 26225260226, 26225260226, 7034538511, 111159740692, 600398249550, 993494827480, 600398249550, 111159740692, 1480593013900, 10743797911132, 25766235457300, 25766235457300, 10743797911132, 1480593013900, 17302190625720, 160576594766588, 517592962672296, 750260619502310, 517592962672296, 160576594766588, 17302190625720
Offset: 8
Triangle starts:
n\f [1] [2] [3] [4]
[8] 225225;
[9] 12317877, 12317877;
[10] 351683046, 792534015, 351683046;
[11] 7034538511, 26225260226, 26225260226, 7034538511;
[12] ...
Cf.
A035309,
A269921,
A269922,
A269923,
A269925,
A270406,
A270407,
A270408,
A270409,
A270410,
A270412.
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n<0 || f<0 || g<0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n+1)((2n-1)/3 Q[n-1, f, g] + (2n-1)/3 Q[n - 1, f-1, g] + (2n-3)(2n-2)(2n-1)/12 Q[n-2, f, g-1] + 1/2 Sum[l = n-k; Sum[v = f-u; Sum[j = g-i; Boole[l >= 1 && v >= 1 && j >= 0] (2k-1) (2l-1) Q[k-1, u, i] Q[l-1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
Table[Q[n, f, 4], {n, 8, 14}, {f, 1, n-7}] // Flatten (* Jean-François Alcover, Aug 10 2018 *)
-
N = 14; G = 4; gmax(n) = min(n\2, G);
Q = matrix(N + 1, N + 1);
Qget(n, g) = { if (g < 0 || g > n/2, 0, Q[n+1, g+1]) };
Qset(n, g, v) = { Q[n+1, g+1] = v };
Quadric({x=1}) = {
Qset(0, 0, x);
for (n = 1, length(Q)-1, for (g = 0, gmax(n),
my(t1 = (1+x)*(2*n-1)/3 * Qget(n-1, g),
t2 = (2*n-3)*(2*n-2)*(2*n-1)/12 * Qget(n-2, g-1),
t3 = 1/2 * sum(k = 1, n-1, sum(i = 0, g,
(2*k-1) * (2*(n-k)-1) * Qget(k-1, i) * Qget(n-k-1, g-i))));
Qset(n, g, (t1 + t2 + t3) * 6/(n+1))));
};
Quadric('x);
concat(apply(p->Vecrev(p/'x), vector(N+1 - 2*G, n, Qget(n-1 + 2*G, G))))
A269923
Triangle read by rows: T(n,f) is the number of rooted maps with n edges and f faces on an orientable surface of genus 3.
Original entry on oeis.org
1485, 56628, 56628, 1169740, 2668750, 1169740, 17454580, 66449432, 66449432, 17454580, 211083730, 1171704435, 1955808460, 1171704435, 211083730, 2198596400, 16476937840, 40121261136, 40121261136, 16476937840, 2198596400, 20465052608, 196924458720, 647739636160
Offset: 6
Triangle starts:
n\f [1] [2] [3] [4] [5]
[6] 1485;
[7] 56628, 56628;
[8] 1169740, 2668750, 1169740;
[9] 17454580, 66449432, 66449432, 17454580;
[10] 211083730, 1171704435, 1955808460, 1171704435, 211083730;
[11] ...
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n<0 || f<0 || g<0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n+1)((2n-1)/3 Q[n-1, f, g] + (2n-1)/3 Q[n - 1, f-1, g] + (2n-3)(2n-2)(2n-1)/12 Q[n-2, f, g-1] + 1/2 Sum[l = n-k; Sum[v = f-u; Sum[j = g-i; Boole[l >= 1 && v >= 1 && j >= 0] (2k-1) (2l-1) Q[k-1, u, i] Q[l-1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
Table[Q[n, f, 3], {n, 6, 12}, {f, 1, n-5}] // Flatten (* Jean-François Alcover, Aug 10 2018 *)
-
N = 12; G = 3; gmax(n) = min(n\2, G);
Q = matrix(N + 1, N + 1);
Qget(n, g) = { if (g < 0 || g > n/2, 0, Q[n+1, g+1]) };
Qset(n, g, v) = { Q[n+1, g+1] = v };
Quadric({x=1}) = {
Qset(0, 0, x);
for (n = 1, length(Q)-1, for (g = 0, gmax(n),
my(t1 = (1+x)*(2*n-1)/3 * Qget(n-1, g),
t2 = (2*n-3)*(2*n-2)*(2*n-1)/12 * Qget(n-2, g-1),
t3 = 1/2 * sum(k = 1, n-1, sum(i = 0, g,
(2*k-1) * (2*(n-k)-1) * Qget(k-1, i) * Qget(n-k-1, g-i))));
Qset(n, g, (t1 + t2 + t3) * 6/(n+1))));
};
Quadric('x);
concat(apply(p->Vecrev(p/'x), vector(N+1 - 2*G, n, Qget(n-1 + 2*G, G))))
A288288
a(n) is the number of rooted maps with n edges and 8 faces on an orientable surface of genus 5.
Original entry on oeis.org
233454817237201560, 35801820369640556595, 2677324515710001081372, 131989618396827099239715, 4869474711666664850333856, 144282707675416905279319800, 3591928999997575304490876960, 77515666515764938993111323048, 1483610943246601143976044602400, 25624962301264473700614835484334, 404881818003827869935873694190904, 5916336815178383154031082792690874
Offset: 17
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n < 0 || f < 0 || g < 0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n + 1) ((2n - 1)/3 Q[n - 1, f, g] + (2n - 1)/3 Q[n - 1, f - 1, g] + (2n - 3) (2n - 2) (2n - 1)/12 Q[n - 2, f, g - 1] + 1/2 Sum[l = n - k; Sum[v = f - u; Sum[j = g - i; Boole[l >= 1 && v >= 1 && j >= 0] (2k - 1) (2l - 1) Q[k - 1, u, i] Q[l - 1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
a[n_] := Q[n, 8, 5];
Table[a[n], {n, 17, 28}] (* Jean-François Alcover, Oct 17 2018 *)
A288289
a(n) is the number of rooted maps with n edges and 9 faces on an orientable surface of genus 5.
Original entry on oeis.org
2682208751185413450, 447016944351510642564, 36188783145801243558900, 1924446945220467632598816, 76330117260895762678976496, 2424036981927621898592714592, 64495258714680679471831890624, 1483610943246601143976044602400, 30193909664655985735143003641892, 553279524558089394499396612588296, 9254922250232295721515866705613000, 142890407229849701818261896174135456
Offset: 18
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n < 0 || f < 0 || g < 0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n + 1) ((2n - 1)/3 Q[n - 1, f, g] + (2n - 1)/3 Q[n - 1, f - 1, g] + (2n - 3) (2n - 2) (2n - 1)/12 Q[n - 2, f, g - 1] + 1/2 Sum[l = n - k; Sum[v = f - u; Sum[j = g - i; Boole[l >= 1 && v >= 1 && j >= 0] (2k - 1) (2l - 1) Q[k - 1, u, i] Q[l - 1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
a[n_] := Q[n, 9, 5];
Table[a[n], {n, 18, 29}] (* Jean-François Alcover, Oct 17 2018 *)
A288290
a(n) is the number of rooted maps with n edges and 10 faces on an orientable surface of genus 5.
Original entry on oeis.org
28449551653853229900, 5131008990500486096250, 447964809766718459342400, 25606868770179512447281320, 1088463806617771584122226336, 36940703720927769833985462240, 1047632171592441142843472246400, 25624962301264473700614835484334, 553279524558089394499396612588296, 10733417717473916970871163704143300, 189705897479950023040270728219928512
Offset: 19
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n < 0 || f < 0 || g < 0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n + 1) ((2 n - 1)/3 Q[n - 1, f, g] + (2 n - 1)/3 Q[n - 1, f - 1, g] + (2 n - 3) (2 n - 2) (2 n - 1)/12 Q[n - 2, f, g - 1] + 1/2 Sum[l = n - k; Sum[v = f - u; Sum[j = g - i; Boole[l >= 1 && v >= 1 && j >= 0] (2 k - 1) (2 l - 1) Q[k - 1, u, i] Q[l - 1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
a[n_] := Q[n, 10, 5];
Table[a[n], {n, 19, 29}] (* Jean-François Alcover, Oct 17 2018 *)
A288281
a(n) is the number of rooted maps with n edges and one face on an orientable surface of genus 5.
Original entry on oeis.org
59520825, 4304016990, 158959754226, 4034735959800, 79553497760100, 1302772718028600, 18475997006212200, 233454817237201560, 2682208751185413450, 28449551653853229900, 281858111998039476900, 2632472852850938916000, 23350616705746908461520, 197910970615681824664800, 1610886016462484019585600
Offset: 10
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n < 0 || f < 0 || g < 0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n + 1) ((2 n - 1)/3 Q[n - 1, f, g] + (2 n - 1)/3 Q[n - 1, f - 1, g] + (2 n - 3) (2 n - 2) (2 n - 1)/12 Q[n - 2, f, g - 1] + 1/2 Sum[l = n - k; Sum[v = f - u; Sum[j = g - i; Boole[l >= 1 && v >= 1 && j >= 0] (2 k - 1) (2 l - 1) Q[k - 1, u, i] Q[l - 1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
a[n_] := Q[n, 1, 5];
Table[a[n], {n, 10, 24}] (* Jean-François Alcover, Oct 17 2018 *)
A288282
a(n) is the number of rooted maps with n edges and 2 faces on an orientable surface of genus 5.
Original entry on oeis.org
4304016990, 354949166565, 14805457339920, 420797306522502, 9220982517965400, 166713517116449940, 2595050050431235488, 35801820369640556595, 447016944351510642564, 5131008990500486096250, 54801783386722932356160, 549865627271249187555384, 5223273162178751507973600
Offset: 11
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n < 0 || f < 0 || g < 0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n + 1) ((2 n - 1)/3 Q[n - 1, f, g] + (2 n - 1)/3 Q[n - 1, f - 1, g] + (2 n - 3) (2 n - 2) (2 n - 1)/12 Q[n - 2, f, g - 1] + 1/2 Sum[l = n - k; Sum[v = f - u; Sum[j = g - i; Boole[l >= 1 && v >= 1 && j >= 0] (2 k - 1) (2 l - 1) Q[k - 1, u, i] Q[l - 1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
a[n_] := Q[n, 2, 5];
Table[a[n], {n, 11, 23}] (* Jean-François Alcover, Oct 17 2018 *)
A288283
a(n) is the number of rooted maps with n edges and 3 faces on an orientable surface of genus 5.
Original entry on oeis.org
158959754226, 14805457339920, 691650582088536, 21853758736216200, 528887751025584600, 10499075716384241952, 178505550201444784920, 2677324515710001081372, 36188783145801243558900, 447964809766718459342400, 5141788096308757330278816, 55267879542927003057175200, 560775739552815581754138816
Offset: 12
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n < 0 || f < 0 || g < 0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n + 1) ((2 n - 1)/3 Q[n - 1, f, g] + (2 n - 1)/3 Q[n - 1, f - 1, g] + (2 n - 3) (2 n - 2) (2 n - 1)/12 Q[n - 2, f, g - 1] + 1/2 Sum[l = n - k; Sum[v = f - u; Sum[j = g - i; Boole[l >= 1 && v >= 1 && j >= 0] (2 k - 1) (2 l - 1) Q[k - 1, u, i] Q[l - 1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
a[n_] := Q[n, 3, 5];
Table[a[n], {n, 12, 24}] (* Jean-François Alcover, Oct 17 2018 *)
A288284
a(n) is the number of rooted maps with n edges and 4 faces on an orientable surface of genus 5.
Original entry on oeis.org
4034735959800, 420797306522502, 21853758736216200, 762684674663536626, 20269771718252599536, 439591872915483185214, 8127109896970086044280, 131989618396827099239715, 1924446945220467632598816, 25606868770179512447281320, 314937862113457568812798944, 3616708980976267213715063568, 39101467996466899068672052800, 400687469703530771051452630260, 3913896712273232414650041609360
Offset: 13
-
Q[0, 1, 0] = 1; Q[n_, f_, g_] /; n < 0 || f < 0 || g < 0 = 0;
Q[n_, f_, g_] := Q[n, f, g] = 6/(n + 1) ((2 n - 1)/3 Q[n - 1, f, g] + (2 n - 1)/3 Q[n - 1, f - 1, g] + (2 n - 3) (2 n - 2) (2 n - 1)/12 Q[n - 2, f, g - 1] + 1/2 Sum[l = n - k; Sum[v = f - u; Sum[j = g - i; Boole[l >= 1 && v >= 1 && j >= 0] (2 k - 1) (2 l - 1) Q[k - 1, u, i] Q[l - 1, v, j], {i, 0, g}], {u, 1, f}], {k, 1, n}]);
a[n_] := Q[n, 4, 5];
Table[a[n], {n, 13, 27}] (* Jean-François Alcover, Oct 17 2018 *)
Showing 1-10 of 13 results.
Comments