A012247 exp(sinh(arctan(x)))=1+x+1/2!*x^2-3/4!*x^4-4/5!*x^5+21/6!*x^6...

1, 1, 1, 0, -3, -4, 21, 136, 185, -7408, -67159, 644416, 11805621, -84562880, -2380474563, 15811723136, 591392066161, -4005496370944, -181472052075695, 1317763889887232, 68002767860495981

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Sinh[ArcTan[x]]], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Dec 11 2012 *)

Crossrefs

Sequence in context: A182096 A012123 A012255 * A057791 A167452 A316192

Adjacent sequences: A012244 A012245 A012246 * A012248 A012249 A012250

Keyword

sign

Author

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

Status

approved