|
%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
|
