|
%I #15 Apr 02 2017 12:31:43
%S 0,2,-4,198,-4488,365834,-26333836,3548101326,-521011775760,
%T 109600356362258,-26637313430995732,8227982193974569686,
%U -2954555247298219357848,1270556471466981784144154
%N Expansion of tanh(sin(x))*tan(x).
%F a(n) ~ (2*n)! * (-1)^(n+1) * 4 * Pi / ((4 + Pi^2) * (log((Pi + sqrt(4 + Pi^2))/2))^(2*n+1)). - _Vaclav Kotesovec_, Jan 24 2015
%t Tanh[ Sin[ x ] ]*Tan[ x ] (* Even Part *)
%t nn = 20; Table[(CoefficientList[Series[Tan[x]*Tanh[Sin[x]], {x, 0, 2*nn}], x] * Range[0, 2*nn]!)[[n]], {n, 1, 2*nn+1, 2}] (* _Vaclav Kotesovec_, Jan 24 2015 *)
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
