%I #13 Jun 22 2015 22:15:37
%S 0,1,-1,2,-6,16,-72,328,-1904,12160,-89344,721280,-6445824,62638720,
%T -660602880,7495723264,-91175548928,1182630301696,-16301080281088,
%U 237887012458496,-3664597991424000,59422015832915968
%N Expansion of log(1+sin(sinh(x))).
%F a(n) ~ (n-1)! * 2 * (-1)^(n+1) / (log((Pi+sqrt(4+Pi^2))/2))^n. - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+Sin[ Sinh[ x ] ] ]
%t CoefficientList[Series[Log[1 + Sin[Sinh[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
|