PROG
(MAGMAMagma) [n le 1 select 0 else 2*(n)*Self(n-1)+(Factorial(n) div (n-1)): n in [1..20]]; // Vincenzo Librandi, Sep 22 2015
(MAGMAMagma) [n le 1 select 0 else 2*(n)*Self(n-1)+(Factorial(n) div (n-1)): n in [1..20]]; // Vincenzo Librandi, Sep 22 2015
reviewed
approved
proposed
reviewed
editing
proposed
(PARI) x='x+O('x^30); concat([0], Vec(serlaplace(x*log(1-x)/(2*x-1)))) \\ _G. C. Geubel_, Greubel_, Nov 25 2017
proposed
editing
editing
proposed
G. C. Greubel, <a href="/A242091/b242091.txt">Table of n, a(n) for n = 1..400</a>
a(n) = n! * sum(Sum_{j=1..(n-1, )} 2^(n-j-1)/j).
(PARI) x='x+O('x^30); concat([0], Vec(serlaplace(x*log(1-x)/(2*x-1)))) \\ _G. C. Geubel_, Nov 25 2017
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed