|
%I #12 Jan 23 2015 14:55:43
%S 1,5,21,377,13129,537965,34399197,2946509729,323564702737,
%T 44888950379477,7640931012615717,1566846818139059657,
%U 381021443277747203161,108403869650402266171709
%N Expansion of tan(x)*cosh(sin(x)) (odd powers only).
%F a(n) ~ (2*n-1)! * 4^n * (exp(1) + exp(-1)) / Pi^(2*n). - _Vaclav Kotesovec_, Jan 23 2015
%t Tan[ x ]*Cosh[ Sin[ x ] ] (* Odd Part *)
%t nn = 20; Table[(CoefficientList[Series[Cosh[Sin[x]]*Tan[x], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K nonn
%O 1,2
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
%E Offset changed to 1 by _Vaclav Kotesovec_, Jan 23 2015
|
