A012458 arcsin(arctan(x)^2) = 2/2!*x^2 - 16/4!*x^4 + 488/6!*x^6 - 30336/8!*x^8...

2, -16, 488, -30336, 3303072, -556926720, 135234491520, -44790227865600, 19434264780034560, -10703464305128755200, 7296385856008015226880, -6031102564833737842851840, 5942962739028147945628999680

Offset

0,1

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[ArcSin[ArcTan[x]^2], {x, 0, nn}], x] Range[0, nn]!, {3, -1, 2}]] (* Harvey P. Dale, Dec 13 2011 *)

Crossrefs

Sequence in context: A354279 A306816 A012461 * A012171 A068472 A168402

Adjacent sequences: A012455 A012456 A012457 * A012459 A012460 A012461

Keyword

sign

Author

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

Extensions

Definition corrected by Harvey P. Dale, Dec 13 2011

Status

approved