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

0, 1, 0, -4, 12, -19, -60, 818, -4872, 14401, 75240, -1619696, 14470500, -61780211, -451892532, 13265310134, -158017858320, 882221413217, 8296746885072, -308498052476476, 4593579141365820, -31680570948622259

Offset

0,4

Links

G. C. Greubel, Table of n, a(n) for n = 0..475

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A169583 A239727 A341888 * A240762 A319259 A050021

Adjacent sequences: A009554 A009555 A009556 * A009558 A009559 A009560

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Status

approved