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