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

1, 0, -1, 3, -14, 70, -406, 2723, -20684, 176100, -1661236, 17182143, -193042904, 2335585330, -30176889016, 412862112263, -5925850093424, 88231921922760, -1341868300356496, 20329433614333083, -291715707804107744

Offset

0,4

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Mathematica

With[{nn=20}, CoefficientList[Series[Cos[Log[1+Sinh[x]]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Apr 10 2014 *)

Prog

(PARI) x='x+O('x^30); Vec(serlaplace(cos(log(1 + sinh(x))))) \\ G. C. Greubel, Jul 22 2018
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Cos(Log(1 + Sinh(x))))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Jul 22 2018

Crossrefs

Sequence in context: A327871 A006772 A320421 * A186765 A109792 A137177

Adjacent sequences: A009017 A009018 A009019 * A009021 A009022 A009023

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, Apr 10 2014

Status

approved