editing
approved
editing
approved
a(n) = -n!*(1 + 2*Sum_{k=1..n} (-1)^k/k!), with n>=1. - Paolo P. Lava, Apr 26 2010
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Expansion of Ee.g.f. (2 - x - 2/*exp(-x))/(1-x).
a(n) = -n!*[(1 + 2*Sum_{k=1..n}{ (-1)^k/k!}], ), with n>=1. - Paolo P. Lava, Apr 26 2010
(PARI) a(n)=if(n<2, n>0, n*a(n-1)-2*(-1)^n)
(Magma)
A055596:= func< n | Factorial(n)*(1 -2*(&+[(-1)^j/Factorial(j): j in [0..n]]) ) >;
[A055596(n): n in [1..30]]; // G. C. Greubel, Sep 06 2022
(SageMath)
def A055596(n): return factorial(n)*( 2*bool(n==0) + 1 - 2*sum((-1)^j/factorial(j) for j in (0..n)) )
[A055596(n) for n in (1..30)] # G. C. Greubel, Sep 06 2022
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Expansion of E.g.f. (2-x-2/exp(x))/(1-x).
proposed
editing