A012331 arctan(arcsin(x)*sin(x))=2/2!*x^2-200/6!*x^6+1344/8!*x^8+609568/10!*x^10...

0, 2, 0, -200, 1344, 609568, -7504640, -8722673024, 485760120832, 492836371075584, -36976815179227136, -58897173274787112960, 11400113150368496795648, 17579088319490872510980096, -4055464184781251145968975872, -8248546055061339155814762643456, 3933564052895801858568954554875904, 7959329273059131348299768801469267968

Offset

0,2

Links

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

Maple

read transforms;
t1 := arctan(arcsin(x)*sin(x));
t2 := series(t1, x, 40);
t3 := SERIESTOLISTMULT(t2);
t4 := BISECT(t3, 0); # N. J. A. Sloane, Jul 26 2019

Mathematica

With[{nn=40}, Take[CoefficientList[Series[ArcTan[ArcSin[x]Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jul 27 2019 *)

Crossrefs

Sequence in context: A064156 A269905 A012335 * A037096 A111814 A036938

Adjacent sequences: A012328 A012329 A012330 * A012332 A012333 A012334

Keyword

sign

Author

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

Extensions

More terms from N. J. A. Sloane, Jul 26 2019

Status

approved