OFFSET
0,3
FORMULA
a(n) = n!*sum(k=1..n, (k^(n-k-1)*(-1)^(k+1)*C(2*k-2,k-1)*2^(n-2*k+1))/(n-k)!), n>0, a(0)=1.
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Sqrt[1+2x Exp[2x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 03 2011 *)
PROG
(Maxima)
a(n):= n!*sum((k^(n-k-1)*(-1)^(k+1)*binomial(2*k-2, k-1)*2^(n-2*k+1))/(n-k)!, k, 1, n);
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Kruchinin, Jun 03 2011
STATUS
approved