A009582 Expansion of e.g.f.: sinh(log(1+x)/cos(x)).

0, 1, -1, 6, -18, 135, -795, 7266, -62188, 669309, -7267005, 90797894, -1179693966, 16915574299, -254880171455, 4143992814482, -70922672184120, 1292106133397017, -24733436584847481, 499532815860896038

Offset

0,4

Links

G. C. Greubel, Table of n, a(n) for n = 0..448 (terms 0..200 from Vincenzo Librandi)

Mathematica

With[{nn=20}, CoefficientList[Series[Sinh[Log[1+x]/Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 22 2013 *)

Prog

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

Crossrefs

Sequence in context: A012758 A208822 A003496 * A222913 A091054 A012774

Adjacent sequences: A009579 A009580 A009581 * A009583 A009584 A009585

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and Mathematica program replaced by Harvey P. Dale, Oct 22 2013

Status

approved