login
A012770
-log(cosh(x)*cos(x))=-4/4!*x^4-544/8!*x^8-707584/12!*x^12...
0
4, 544, 707584, 3807514624, 58177770225664, 2030847773013704704, 140503203207887919775744, 17427925514250338592341622784, 3597303386901777560143500698189824, 1166406649834620087886383283250988580864
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
Sequence in context: A295206 A209608 A159367 * A332154 A202032 A267066
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