OFFSET
0,4
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..200
Eric Weisstein's World of Mathematics, Johnson Graph
Eric Weisstein's World of Mathematics, Total Dominating Set
Eric Weisstein's World of Mathematics, Triangular Graph
FORMULA
E.g.f.: exp(x^3/2) + x*exp(x*exp(x^2+x) - (x+x^2+x^3+x^4/2)). - Andrew Howroyd, Apr 21 2018
MATHEMATICA
Range[0, 20]! CoefficientList[Series[Exp[x^3/2] + x Exp[x Exp[x^2 + x] - (x + x^2 + x^3 + x^4/2)], {x, 0, 20}], x] (* Eric W. Weisstein, Apr 23 2018 *)
PROG
(PARI) seq(n)={Vec(serlaplace(exp(x^3/2 + O(x*x^n)) + x*exp(x*exp(x^2+x + O(x^n)) - (x+x^2+x^3+x^4/2))))} \\ Andrew Howroyd, Apr 21 2018
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Apr 20 2018
EXTENSIONS
a(0)-a(1) prepended and a(8)-a(22) from Andrew Howroyd, Apr 21 2018
STATUS
approved