A012554 exp(sinh(x)*arctan(x))=1+2/2!*x^2+8/4!*x^4+110/6!*x^6+520/8!*x^8...

1, 2, 8, 110, 520, 80458, -4654604, 820778478, -157200016272, 41164154565906, -13482969489167252, 5454988601609663734, -2666562535164656750936, 1549911678027846498248986, -1056435556882844258622185948, 834565745980558555804948223614

Offset

0,2

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Exp[Sinh[x]ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, May 07 2018 *)

Crossrefs

Sequence in context: A178171 A374573 A132523 * A362727 A012665 A317076

Adjacent sequences: A012551 A012552 A012553 * A012555 A012556 A012557

Keyword

sign

Author

Patrick Demichel

Extensions

More terms from Harvey P. Dale, May 07 2018

Status

approved