A009407 Expansion of log(1+x)*cos(sinh(x)).

0, 1, -1, -1, 0, -11, 15, 27, -504, 7785, -74025, 835735, -9654216, 121643677, -1646734089, 23833558707, -368032192080, 6033531089873, -104751319907313, 1920112851095471, -37066806679606640, 751794216181100869

Offset

0,6

Links

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

Formula

a(n) ~ (n-1)! * (-1)^(n+1) * cos(sinh(1)). - Vaclav Kotesovec, Jan 24 2015

Mathematica

Log[ 1+x ]*Cos[ Sinh[ x ] ]
CoefficientList[Series[Cos[Sinh[x]]*Log[1 + x], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 24 2015 *)

Crossrefs

Sequence in context: A054280 A214863 A094766 * A009433 A275242 A030099

Adjacent sequences: A009404 A009405 A009406 * A009408 A009409 A009410

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved