A009584 - OEIS

%I #18 Jan 23 2018 05:20:32

%S 0,1,-3,9,-42,305,-2665,25067,-251972,2745465,-32688943,424508469,

%T -5968344734,90114264825,-1451722832677,24834986644327,

%U -449552904472328,8585202845115217,-172515580225202331,3638810086585297153,-80383785130400768466,1855915975702935666209

%N Expansion of e.g.f. sinh(log(1+x)/exp(x)).

%H G. C. Greubel, <a href="/A009584/b009584.txt">Table of n, a(n) for n = 0..447</a>

%t CoefficientList[Series[Sinh[Log[1 + x] / Exp[x]], {x, 0, 25}], x] Range[0, 25]! (* _Vincenzo Librandi_, Mar 01 2015 *)

%o (PARI) x='x+O('x^30); concat([0], Vec(serlaplace(sinh(log(1+x)/exp(x))))) \\ _G. C. Greubel_, Jan 22 2018

%K sign,easy

%O 0,3

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E a(20)-a(21) from _Vincenzo Librandi_, Mar 01 2015