login
A009020
Expansion of e.g.f.: cos(log(1 + sinh(x))).
1
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
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
KEYWORD
sign,easy
AUTHOR
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