A013285 Expansion of e.g.f.: arctan(log(x+1)-tanh(x)).

-1, 4, -6, 8, -90, 152, 6440, -69984, 443520, -4264768, 46842048, -44493568, -8172692528, 163418763328, -2660756991360, 48794732729856, -721585374360192, 4596412549813760, 89745640000513280

Offset

2,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 2..200

Example

-1/2!*x^2 + 4/3!*x^3 - 6/4!*x^4 + 8/5!*x^5 - ...

Mathematica

With[{nn=30}, Drop[CoefficientList[Series[ArcTan[Log[x+1]-Tanh[x]], {x, 0, nn}], x] Range[0, nn]!, 2]] (* Harvey P. Dale, May 17 2012 *)

Crossrefs

Sequence in context: A067797 A203633 A190630 * A013289 A013288 A013282

Adjacent sequences: A013282 A013283 A013284 * A013286 A013287 A013288

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Definition clarified by Harvey P. Dale, May 17 2012

Status

approved