A012362 arcsinh(tan(x)*exp(x)) = x+2/2!*x^2+4/3!*x^3-60/5!*x^5-488/6!*x^6...

0, 1, 2, 4, 0, -60, -488, -1416, 20160, 427280, 3830432, -7233536, -955342080, -18140316480, -120169970048, 3583792700544, 145171043297280, 2388380775676160, -7380519436860928, -1710892457585202176

Offset

0,3

Links

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

Mathematica

CoefficientList[Series[ArcSinh[Tan[x]*Exp[x]], {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Oct 30 2013 *)

Crossrefs

Sequence in context: A055871 A012716 A173220 * A012710 A333367 A287761

Adjacent sequences: A012359 A012360 A012361 * A012363 A012364 A012365

Keyword

sign

Author

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

Extensions

Prepended missing a(0)=0, Vaclav Kotesovec, Oct 30 2013

Status

approved