|
%I #14 Apr 02 2017 12:32:03
%S 1,0,32,-336,31744,-1588224,207515648,-24843657216,4860991111168,
%T -1034712438669312,295553381961826304,-96277515461273321472,
%U 38465285132060037480448,-17609621553067367199670272
%N Expansion of tanh(sin(x))/cos(x) (odd powers only).
%F a(n) ~ (2*n-1)! * (-1)^(n+1) * 8 / ((4 + Pi^2) * (log((Pi + sqrt(4 + Pi^2))/2))^(2*n)). - _Vaclav Kotesovec_, Jan 24 2015
%t Tanh[ Sin[ x ] ]/Cos[ x ] (* Odd Part *)
%t nn = 20; Table[(CoefficientList[Series[Sec[x]*Tanh[Sin[x]], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* _Vaclav Kotesovec_, Jan 24 2015 *)
%K sign
%O 1,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Changed offset by _Vaclav Kotesovec_, Jan 24 2015
|
