A012733 arcsinh(arctanh(x)*arctan(x))=2/2!*x^2+88/6!*x^6+353952/10!*x^10...

2, 88, 353952, 4859875200, 286589256061440, 38349390501320693760, 11520524205295446001950720, 6360705742909296331970308177920

Offset

0,1

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[ArcSinh[ArcTanh[x]ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!, {3, -1, 4}]] (* Harvey P. Dale, Apr 12 2013 *)

Crossrefs

Sequence in context: A266182 A362519 A012728 * A058459 A355272 A105268

Adjacent sequences: A012730 A012731 A012732 * A012734 A012735 A012736

Keyword

nonn

Author

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

Extensions

Definition clarified by Harvey P. Dale, Apr 12 2013

Status

approved