A202359 Denominators of coefficients in Taylor series expansion of arccosh(exp(x)-sin(x)).

1, 1, 3, 18, 27, 648, 68040, 136080, 51030, 653184, 4849891200, 203695430400, 43649020800, 1466607098880, 285988384281600, 8579651528448000, 15014390174784000, 64061398079078400, 2793397263238213632000, 184364219373722099712000, 9669452065055354880000, 46459783282177969127424000, 16028625232351399348961280000

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Example

x+1/3*x^2-1/18*x^3-1/27*x^4-5/648*x^5+503/68040*x^6+521/136080*x^7-13/51030*x^8...

Mathematica

Join[{1}, Denominator[List@@(Normal[CoefficientList[Series[ArcCosh[ Exp[x]- Sin[x]], {x, 0, 30}], x] [[1, 2]]])]] (* Harvey P. Dale, Jun 28 2014 *)

Crossrefs

Cf. A013305.

Sequence in context: A048080 A306279 A169598 * A118474 A163242 A190308

Adjacent sequences: A202356 A202357 A202358 * A202360 A202361 A202362

Keyword

nonn,frac

Author

N. J. A. Sloane, Dec 17 2011

Status

approved