OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..386
FORMULA
E.g.f.: sqrt((1-LambertW(-x))/(1+LambertW(-x))).
Sum_{k=0..n} binomial(n,k)*a(k)*a(n-k) = 2*n^n, n>0. - Vladeta Jovovic, Oct 11 2007
a(n) ~ n! * 2^(3/4)*Gamma(3/4)*exp(n)/(2*Pi*n^(3/4)). - Vaclav Kotesovec, Sep 24 2013
MAPLE
b:= proc(n) option remember; `if`(n=0, 1, add(`if`(j::odd,
(j-1)!*b(n-j)*binomial(n-1, j-1), 0), j=1..n))
end:
a:= n-> add(b(j)*n^(n-j)*binomial(n-1, j-1), j=0..n):
seq(a(n), n=0..20); # Alois P. Heinz, May 20 2016
MATHEMATICA
t = Sum[n^(n - 1) x^n/n!, {n, 1, 20}]; Range[0, 20]! CoefficientList[
Series[((1 + t)/(1 - t))^(1/2), {x, 0, 20}], x] (* Geoffrey Critzer, Dec 07 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Mar 30 2006
STATUS
approved