%I #14 Apr 01 2017 14:08:01
%S 0,1,1,1,-2,5,6,131,-552,3065,-10934,216511,-1516052,13359125,
%T -110965074,1704426491,-17363056752,210045171185,-2585510594414,
%U 41595973502071,-563643499480652,8626434032607245,-136389526384050954
%N Expansion of log(1 + tan(x)*exp(x)).
%F a(n) ~ (n-1)! * (-1)^(n+1) / r^n, where r = 1.306326940423079236174356658440682315179068358... is the root of the equation tan(r)/exp(r) = 1. - _Vaclav Kotesovec_, Jan 24 2015
%t Log[ 1+Tan[ x ]*Exp[ x ] ]
%t CoefficientList[Series[Log[1 + E^x*Tan[x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 24 2015 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
|