A009621 Expansion of sinh(x)*cosh(log(1+x)).

0, 1, 0, 4, -12, 71, -420, 2962, -23688, 213229, -2132280, 23455136, -281461620, 3659001139, -51226015932, 768390239086, -12294243825360, 209002145031257, -3762038610562608, 71478733600689724, -1429574672013794460

Offset

0,4

Links

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

Formula

a(n) ~ n! * (-1)^(n+1) * sinh(1) / 2. - Vaclav Kotesovec, Jan 23 2015

Mathematica

Sinh[ x ]*Cosh[ Log[ 1+x ] ]
CoefficientList[Series[((1 + (1 + x)^2)*Sinh[x])/(2*(1 + x)), {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Crossrefs

Sequence in context: A180386 A302434 A121771 * A335907 A013195 A356667

Adjacent sequences: A009618 A009619 A009620 * A009622 A009623 A009624

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Status

approved