# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a351777
Showing 1-1 of 1

%I A351777 #15 Feb 06 2024 16:20:46
%S A351777 1,-2,4,-6,-8,150,-972,3682,6256,-289746,3300460,-21071622,-27876312,
%T A351777 3156947014,-53217341660,494232431250,175171749088,-113735274256290,
%U A351777 2613309376750812,-32653995355358678,36013529538641560,10227377502146048118,-305630239215263764076
%N A351777 Expansion of e.g.f. 1/(1 + 2*x*exp(x)).
%F A351777 a(n) = n! * Sum_{k=0..n} (-2)^(n-k) * (n-k)^k/k!.
%F A351777 a(0) = 1 and a(n) = -2 * n * Sum_{k=0..n-1} binomial(n-1,k) * a(k) for n > 0.
%t A351777 With[{nn=30},CoefficientList[Series[1/(1+2x Exp[x]),{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Feb 06 2024 *)
%o A351777 (PARI) my(N=40, x='x+O('x^N)); Vec(serlaplace(1/(1+2*x*exp(x))))
%o A351777 (PARI) a(n) = n!*sum(k=0, n, (-2)^(n-k)*(n-k)^k/k!);
%o A351777 (PARI) a(n) = if(n==0, 1, -2*n*sum(k=0, n-1, binomial(n-1, k)*a(k)));
%Y A351777 Column k=2 of A351776.
%Y A351777 Cf. A351762.
%K A351777 sign
%O A351777 0,2
%A A351777 _Seiichi Manyama_, Feb 19 2022

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE