cp's OEIS Frontend

A330603 a(n) = Sum_{k>=0} (k - n)^n / 2^(k + 1).

%I A330603 #10 Jun 12 2024 20:44:32
%S A330603 1,0,3,-14,155,-1834,27867,-492246,10068459,-232990178,6025718963,
%T A330603 -172182404734,5387697769467,-183214963001082,6728091949444491,
%U A330603 -265348057242998822,11185888456798395563,-501937946696294628946,23886968118494957119011,-1201674025637823778926414
%N A330603 a(n) = Sum_{k>=0} (k - n)^n / 2^(k + 1).
%C A330603 The n-th term of the n-th inverse binomial transform of A000670.
%H A330603 G. C. Greubel, <a href="/A330603/b330603.txt">Table of n, a(n) for n = 0..380</a>
%F A330603 a(n) = n! * [x^n] exp(-n*x) / (2 - exp(x)).
%F A330603 a(n) = Sum_{k=0..n} binomial(n,k) * (-n)^(n - k) * A000670(k).
%F A330603 a(n) ~ (-1)^n * n^n / (2 - exp(-1)). - _Vaclav Kotesovec_, Dec 19 2019
%t A330603 Table[Sum[(k - n)^n/2^(k + 1), {k, 0, Infinity}], {n, 0, 19}]
%t A330603 Table[HurwitzLerchPhi[1/2, -n, -n]/2, {n, 0, 19}]
%t A330603 Table[n! SeriesCoefficient[Exp[-n x]/(2 - Exp[x]), {x, 0, n}], {n, 0, 19}]
%o A330603 (Magma)
%o A330603 R<x>:=PowerSeriesRing(Rationals(), 50);
%o A330603 A330603:= func< n | Coefficient(R!(Laplace( Exp(-n*x)/(2-Exp(x)) )), n) >;
%o A330603 [A330603(n): n in [0..30]]; // _G. C. Greubel_, Jun 12 2024
%o A330603 (SageMath) [factorial(n)*( exp(-n*x)/(2-exp(x)) ).series(x,n+1).list()[n] for n in (0..30)] # _G. C. Greubel_, Jun 12 2024
%Y A330603 Cf. A000670, A052841, A290219, A292916.
%K A330603 sign
%O A330603 0,3
%A A330603 _Ilya Gutkovskiy_, Dec 19 2019