A013176 arcsin(arctanh(x)+arctan(x))=2*x+8/3!*x^3+336/5!*x^5+32832/7!*x^7...

2, 8, 336, 32832, 6596352, 2172377088, 1074790176768, 742942875451392, 684332863424888832, 809904627202731540480, 1197620189653593343131648, 2163726873433446527375769600, 4689766098958031240193965555712

Offset

0,1

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[ArcSin[ArcTanh[x]+ArcTan[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Aug 22 2014 *)

Crossrefs

Sequence in context: A012999 A013003 A009707 * A220904 A009489 A102597

Adjacent sequences: A013173 A013174 A013175 * A013177 A013178 A013179

Keyword

nonn

Author

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

Extensions

Definition clarified by Harvey P. Dale, Aug 22 2014

Status

approved