A012773 exp(cosh(x)*arctanh(x)) = 1+x+1/2!*x^2+6/3!*x^3+21/4!*x^4+100/5!*x^5...

1, 1, 1, 6, 21, 100, 645, 4256, 34153, 302352, 2966505, 32245664, 380114493, 4879093440, 67244074989, 996485811712, 15717842398417, 264232448010496, 4694489063253585, 88283645811756544, 1744673430747688805

Offset

0,4

Links

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

Formula

a(n) ~ (n-1)! * (2*n)^(cosh(1)/2) / GAMMA(cosh(1)/2). - Vaclav Kotesovec, Oct 24 2013

Mathematica

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

Crossrefs

Sequence in context: A093774 A151612 A344496 * A012662 A012418 A203295

Adjacent sequences: A012770 A012771 A012772 * A012774 A012775 A012776

Keyword

nonn

Author

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

Status

approved