A013401 arctan(arcsin(x)-tan(x)) = -1/3!*x^3 - 7/5!*x^5 - 47/7!*x^7 + 3649/9!*x^9...

-1, -7, -47, 3649, 603913, 90832337, 16338507729, 3707053126657, 1069079235975961, 387242954208151825, 172585239298528416545, 92608073317490225768001, 58719694732194364215549993

Offset

4,2

Links

Table of n, a(n) for n=4..16.

Mathematica

With[{nn=30}, Take[CoefficientList[Series[ArcTan[ArcSin[x]-Tan[x]], {x, 0, nn}], x] Range[0, nn-1]!, {4, -1, 2}]] (* Harvey P. Dale, Feb 07 2012 *)

Crossrefs

Sequence in context: A013400 A013399 A013403 * A384449 A020465 A092480

Adjacent sequences: A013398 A013399 A013400 * A013402 A013403 A013404

Keyword

sign

Author

Patrick Demichel

Status

approved