A013313 arctan(exp(x)-cos(x))=x+2/2!*x^2-1/3!*x^3-24/4!*x^4-115/5!*x^5...

1, 2, -1, -24, -115, 242, 9179, 65296, -366535, -14288158, -124059241, 1440362616, 57563571845, 541440703442, -11649746422861, -473630058916064, -4395343414984975, 168230486159471042

Offset

1,2

Links

Table of n, a(n) for n=1..18.

Mathematica

With[{nn=20}, Rest[CoefficientList[Series[ArcTan[Exp[x]-Cos[x]], {x, 0, nn}], x] Range[0, nn]!]] (* Harvey P. Dale, Jan 01 2015 *)

Crossrefs

Sequence in context: A297892 A101179 A184295 * A013317 A010256 A087452

Adjacent sequences: A013310 A013311 A013312 * A013314 A013315 A013316

Keyword

sign

Author

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

Status

approved