A009407 - OEIS

%I #14 Jun 23 2015 21:38:20

%S 0,1,-1,-1,0,-11,15,27,-504,7785,-74025,835735,-9654216,121643677,

%T -1646734089,23833558707,-368032192080,6033531089873,-104751319907313,

%U 1920112851095471,-37066806679606640,751794216181100869

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

%F a(n) ~ (n-1)! * (-1)^(n+1) * cos(sinh(1)). - _Vaclav Kotesovec_, Jan 24 2015

%t Log[ 1+x ]*Cos[ Sinh[ x ] ]

%t CoefficientList[Series[Cos[Sinh[x]]*Log[1 + x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 24 2015 *)

%K sign,easy

%O 0,6

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997