A012593 cosh(arcsinh(x)*exp(x))=1+1/2!*x^2+6/3!*x^3+21/4!*x^4+60/5!*x^5...

1, 0, 1, 6, 21, 60, 285, 2170, 12873, 54936, 391065, 4881998, 33969309, 28359188, 826179445, 48496348290, 328705747217, -5928717037136, -26909518872399, 2320514677184022, 14213386673919397

Offset

0,4

Links

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

Formula

a(n) ~ (2*sin(1-n*Pi/2) * cos(Pi*cos(1)/2) * sinh(Pi*sin(1)/2) - 2*cos(1-n*Pi/2) * cosh(Pi*sin(1)/2) * sin(Pi*cos(1)/2)) * n^(n-1) / exp(n). - Vaclav Kotesovec, Oct 31 2013

Mathematica

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

Crossrefs

Sequence in context: A066524 A113070 A009147 * A276235 A334833 A048476

Adjacent sequences: A012590 A012591 A012592 * A012594 A012595 A012596

Keyword

sign

Author

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

Status

approved