A013363 arctan(sin(x)-arctan(x))=1/3!*x^3-23/5!*x^5+719/7!*x^7-40879/9!*x^9...

0, 1, -23, 719, -40879, 3841319, -541803767, 106235553423, -27468995761375, 9037325540918231, -3685351559546907751, 1824543182108925373567, -1078031616167494916871951, 749297439398817941026337799

Offset

0,3

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[ArcTanh[Sin[x]-ArcTan[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Ray Chandler, Nov 29 2016 *)

Crossrefs

Sequence in context: A013365 A127230 A013361 * A181745 A159306 A236302

Adjacent sequences: A013360 A013361 A013362 * A013364 A013365 A013366

Keyword

sign

Author

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

Status

approved