A013250 Expansion of e.g.f.: cos(log(x+1)-arctan(x))=1-3/4!*x^4+40/5!*x^5-250/6!*x^6+840/7!*x^7...

1, 0, 0, 0, -3, 40, -250, 840, -4515, 87120, -949500, 4360400, -24799775, 1013539800, -16719504750, 82697979000, -246429558375, 40173677908000, -928344422395000, 3990578889492000, 32523853181113125

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cos[Log[x+1]-ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 01 2024 *)

Crossrefs

Sequence in context: A065815 A283115 A013257 * A013255 A013256 A013293

Adjacent sequences: A013247 A013248 A013249 * A013251 A013252 A013253

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Sep 01 2024

Status

approved