OFFSET
0,1
MAPLE
g := taylor(log(cosh(x)*cos(x)), x=0, 100):q := seq(abs(coeff(g, x, 4*i)*(4*i)!), i=1..15);
MATHEMATICA
With[{nn=40}, Take[-CoefficientList[Series[Log[Cosh[x]Cos[x]], {x, 0, nn}], x] Range[0, nn]!, {5, -1, 4}]] (* Harvey P. Dale, Mar 15 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
More terms from Sascha Kurz and Vladeta Jovovic, Apr 04 2002
Definition corrected by Harvey P. Dale, Mar 15 2015
STATUS
approved