A012770 -log(cosh(x)*cos(x))=-4/4!*x^4-544/8!*x^8-707584/12!*x^12...

4, 544, 707584, 3807514624, 58177770225664, 2030847773013704704, 140503203207887919775744, 17427925514250338592341622784, 3597303386901777560143500698189824, 1166406649834620087886383283250988580864

Offset

0,1

Links

Table of n, a(n) for n=0..9.

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

Adjacent sequences: A012767 A012768 A012769 * A012771 A012772 A012773

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