A012411 arctan(arctan(x)*exp(x)) = x + 2/2!*x^2 - 1/3!*x^3 - 28/4!*x^4 - 107/5!*x^5 + ...

0, 1, 2, -1, -28, -107, 470, 10243, 51592, -677879, -15870422, -76105753, 2647708780, 62662672733, 171362144382, -21259413359701, -489069754224624, 774485831879569, 300884931182492754

Offset

0,3

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[ArcTan[ArcTan[x]*Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Ray Chandler, Nov 28 2016 *)

Crossrefs

Sequence in context: A322230 A353910 A353913 * A012415 A012660 A015155

Adjacent sequences: A012408 A012409 A012410 * A012412 A012413 A012414

Keyword

sign

Author

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

Status

approved