%I #15 Jun 23 2015 21:42:13
%S 0,0,2,-6,14,-40,204,-1316,8728,-65472,587520,-5909024,63996096,
%T -755614080,9771577984,-136347987712,2032096826880,-32315254874112,
%U 547193693896704,-9816654494863360,185846783267553280,-3704632705419493376
%N Expansion of log(1+x)*log(1+tanh(x)).
%F a(n) ~ (n-1)! * (-1)^n * log((1+exp(2))/2). - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+x ]*Log[ 1+Tanh[ x ] ]
%t CoefficientList[Series[Log[1 + x]*Log[1 + Tanh[x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
|