|
%I #14 Jan 22 2015 13:08:37
%S 1,1,2,3,8,17,88,315,2176,9505,78080,413523,4159616,26287601,
%T 307882240,2238416523,29920681984,246589091137,3710767394816,
%U 34186190864163,571523842998272,5819027995038161,107010484096565248
%N Expansion of exp(sin(x))/cos(x).
%F E.g.f.: 1/cos(x)+ tan(x)/Q(0), where Q(k) = 4*k+1 -sin(x)/(2 + sin(x)/( 4*k+3 - sin(x)/(2 + sin(x)/Q(k+1) ))); (continued fraction). - _Sergei N. Gladkovskii_, Dec 08 2013
%F a(n) ~ n! * (exp(1) + exp(-1)*(-1)^n) / (Pi/2)^(n+1). - _Vaclav Kotesovec_, Jan 22 2015
%t Exp[ Sin[ x ] ]/Cos[ x ]
%t CoefficientList[Series[E^Sin[x]*Sec[x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 22 2015 *)
%K nonn,easy
%O 0,3
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
|
