A013173 arctan(arctanh(x)+tan(x))=2*x-12/3!*x^3+488/5!*x^5-48608/7!*x^7...

2, -12, 488, -48608, 9080960, -2722798848, 1197871592448, -726520846829568, 581088281306562560, -592572418222512668672, 750419972539476482195456, -1155381150026866713259671552, 2125413346746653166067846742016

Offset

0,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A357895 A012625 A012630 * A013147 A250110 A266501

Adjacent sequences: A013170 A013171 A013172 * A013174 A013175 A013176

Keyword

sign

Author

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

Status

approved