|
|
A210912
|
|
Number of transitive reflexive early confluent binary relations R on n labeled elements where |{y : xRy}| <= 4 for all x.
|
|
4
|
|
|
1, 1, 4, 26, 243, 2451, 29922, 420841, 6692163, 118170959, 2296688956, 48661358989, 1115587992521, 27499790373121, 725031761113038, 20351018228318061, 605726610363853513, 19050158234570819809, 631097355371645795620, 21961423837720097681425
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
R is early confluent iff (xRy and xRz) implies (yRz or zRy) for all x, y, z.
|
|
REFERENCES
|
A. P. Heinz (1990). Analyse der Grenzen und Möglichkeiten schneller Tableauoptimierung. PhD Thesis, Albert-Ludwigs-Universität Freiburg, Freiburg i. Br., Germany.
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: exp(x *exp(x *exp(x *exp(x)+x^2/2) +x^2/2*exp(x) +x^3/6) +x^2/2 *exp(x*exp(x) +x^2/2) +x^3/6 *exp(x) +x^4/24).
|
|
MAPLE
|
gf:= exp(x *exp(x *exp(x *exp(x)+x^2/2) +x^2/2*exp(x) +x^3/6)
+x^2/2 *exp(x*exp(x) +x^2/2) +x^3/6 *exp(x) +x^4/24):
a:= n-> n!* coeff(series(gf, x, n+1), x, n):
seq(a(n), n=0..30);
|
|
MATHEMATICA
|
t[0, _] = 1; t[k_, x_] := t[k, x] = Exp[Sum[x^m/m!*t[k - m, x], {m, 1, k}]]; a[0, 0] = 1; a[_, 0] = 0; a[n_, k_] := SeriesCoefficient[t[k, x], {x, 0, n}]*n!; Table[a[n, 4], {n, 0, 30} ] (* Jean-François Alcover, Feb 04 2014, after A135302 and Alois P. Heinz *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|