|
%I #11 Jan 22 2015 12:34:44
%S 1,2,8,88,2176,78080,4159616,307882240,29920681984,3710767394816,
%T 571523842998272,107010484096565248,23940179383147724800,
%U 6306683724617339961344,1932337463823712544620544
%N Expansion of cosh(sin(x))/cos(x).
%F a(n) ~ (2*n)! * (exp(1) + exp(-1)) / (Pi/2)^(2*n+1). - _Vaclav Kotesovec_, Jan 22 2015
%t Cosh[ Sin[ x ] ]/Cos[ x ] (* Even Part *)
%t nn = 20; Table[(CoefficientList[Series[Cosh[Sin[x]]*Sec[x], {x, 0, 2*nn}], x] * Range[0, 2*nn]!)[[n]], {n, 1, 2*nn+1, 2}] (* _Vaclav Kotesovec_, Jan 22 2015 *)
%K nonn
%O 0,2
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
|
