A012400 Expansion of e.g.f.: cos(arctan(x)*log(x+1))=1-12/4!*x^4+60/5!*x^5-90/6!*x^6+420/7!*x^7...

1, 0, 0, 0, -12, 60, -90, 420, -11648, 88704, -118440, 1491600, -85167192, 865152288, 317981664, 19296033120, -2535023513088, 30778504850304, 126137259616320, 388230513819264, -214673614448387712

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cos[ArcTan[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 29 2017 *)

Crossrefs

Sequence in context: A012658 A012407 A009093 * A009172 A012405 A012657

Adjacent sequences: A012397 A012398 A012399 * A012401 A012402 A012403

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Nov 29 2017

Status

approved