A009557 - OEIS

%I #14 Jan 22 2018 02:38:36

%S 0,1,0,-4,12,-19,-60,818,-4872,14401,75240,-1619696,14470500,

%T -61780211,-451892532,13265310134,-158017858320,882221413217,

%U 8296746885072,-308498052476476,4593579141365820,-31680570948622259

%N Expansion of e.g.f. sin(x)/cosh(log(1+x)).

%H G. C. Greubel, <a href="/A009557/b009557.txt">Table of n, a(n) for n = 0..475</a>

%t With[{nmax = 50}, CoefficientList[Series[Sin[x]/Cosh[Log[x + 1]], {x, 0, nmax}], x]*Range[0, nmax]!] (* _G. C. Greubel_, Jan 21 2018 *)

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

%K sign,easy

%O 0,4

%A _R. H. Hardin_

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