A012760 Expansion of e.g.f. arcsinh(cosh(x) * log(x+1)).

0, 1, -1, 4, -6, -7, 135, -968, 1764, 58669, -1068885, 10920908, -41078730, -1105690419, 31085174939, -413045671712, 692738905320, 126897371107929, -3901725279332361, 61836650105641300, -52537696659319150

Offset

0,4

Links

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

Example

x - 1/2!*x^2 + 4/3!*x^3 - 6/4!*x^4 - 7/5!*x^5 ...

Mathematica

Range[0, 20]! CoefficientList[ Series[ArcSinh[Cosh[x] Log[x + 1]], {x, 0, 20}], x] (* Robert G. Wilson v, Jul 24 2018 *)

Crossrefs

Sequence in context: A102134 A102133 A192121 * A333742 A107648 A004786

Adjacent sequences: A012757 A012758 A012759 * A012761 A012762 A012763

Keyword

sign

Author

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

Extensions

a(0) inserted and title improved by Sean A. Irvine, Jul 24 2018

Status

approved