A012401 Expansion of e.g.f.: sinh(arctan(x)*log(x+1))=2/2!*x^2-3/3!*x^3-10/5!*x^5+328/6!*x^6...

0, 0, 2, -3, 0, -10, 328, -2184, 5040, -40104, 1311552, -15123240, 72848160, -748098000, 27513786480, -450798649560, 3381295357440, -44199243856320, 1837919010900480, -39019174967975040, 402216681934690560

Offset

0,3

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[ArcTan[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 13 2018 *)

Crossrefs

Sequence in context: A177700 A012654 A012651 * A012398 A012652 A012404

Adjacent sequences: A012398 A012399 A012400 * A012402 A012403 A012404

Keyword

sign

Author

Patrick Demichel

Extensions

Two zeros prepended and definition clarified by Harvey P. Dale, Feb 13 2018

Status

approved