A012718 cosh(arctanh(x)*exp(x))=1+1/2!*x^2+6/3!*x^3+33/4!*x^4+180/5!*x^5...

1, 0, 1, 6, 33, 180, 1185, 8890, 79233, 769608, 8392065, 97609358, 1249180449, 16946392892, 249854555041, 3881392411650, 64853211006977, 1135530767344144, 21209811847666689, 413312033834754966

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cosh[ArcTanh[x]Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 15 2013 *)

Crossrefs

Sequence in context: A138395 A050151 A009162 * A297221 A006630 A367850

Adjacent sequences: A012715 A012716 A012717 * A012719 A012720 A012721

Keyword

nonn

Author

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

Status

approved