A013152 E.g.f.: log(tanh(x)+cos(x))=x-2/2!*x^2+3/3!*x^3-12/4!*x^4+65/5!*x^5...

0, 1, -2, 3, -12, 65, -392, 2723, -23072, 226785, -2475392, 29857443, -397554432, 5785047905, -91112993792, 1544546456963, -28059800686592, 543833037679425, -11198270349934592, 244141035610073283

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Log[Tanh[x]+Cos[x]], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Jul 21 2012 *)

Crossrefs

Sequence in context: A155579 A353163 A108261 * A012911 A264726 A099805

Adjacent sequences: A013149 A013150 A013151 * A013153 A013154 A013155

Keyword

sign

Author

Patrick Demichel

Extensions

Definition clarified by Harvey P. Dale, Jul 21 2012

Status

approved