%I #14 Jun 22 2015 22:16:26
%S 0,1,-1,4,-8,20,-61,208,-888,4304,-24001,149312,-1028048,7745088,
%T -63374221,559452416,-5299033488,53597321472,-576514338721,
%U 6570832389120,-79100066353208,1002840464045056,-13355627237749501,186406420596609024
%N Expansion of log(1+sin(x))*cosh(x).
%F a(n) ~ (n-1)! * (-1)^(n+1) * cosh(Pi/2) * 2^(n+1) / Pi^n. - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+Sin[ x ] ]*Cosh[ x ]
%t CoefficientList[Series[Cosh[x]*Log[1 + Sin[x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
|