OFFSET
1,2
LINKS
Gheorghe Coserea, Table of n, a(n) for n = 1..222
Sergey Fomin and Grigory Mikhalkin, Labeled floor diagrams for plane curves, arXiv:0906.3828 [math.AG], 2009-2010.
FORMULA
Sergey Fomin and Grigory Mikhalkin give a recurrence.
MATHEMATICA
terms = 17; Clear[b]; b[1] = b[2] = 1;
y[x_] = Sum[d^2 b[d] x^d/(2 d)!, {d, 1, terms+1}];
f = x (4 y'[x] - E^y[x] - x E^y[x] y'[x]) - 2 y[x] + O[x]^(terms + 1);
Solve[0 == Thread[CoefficientList[f, x]]][[1]] /. Rule -> Set;
a[n_] := n b[n];
Array[a, terms] (* Jean-François Alcover, Dec 14 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 27 2010
EXTENSIONS
Terms a(15) and beyond from Gheorghe Coserea, Jan 02 2018
STATUS
approved