%I #7 Feb 08 2015 05:19:07
%S 1,0,12,240,17808,1637760,242818752,48180857088,12774673068288,
%T 4307001787772928,1807577755864845312,922535092598044569600,
%U 562968743814613569146880,404689929495830909079552000
%N sec(arcsin(x)*arcsin(x))=1+12/4!*x^4+240/6!*x^6+17808/8!*x^8...
%F a(n) ~ 2 * cos(sqrt(Pi/2)) * (2*n)! / (sqrt(2*Pi) * sin(sqrt(Pi/2))^(2*n+1)). - _Vaclav Kotesovec_, Feb 08 2015
%t nn = 20; Table[(CoefficientList[Series[Sec[ArcSin[x]^2], {x, 0, 2*nn}], x] * Range[0, 2*nn]!)[[n]], {n, 1, 2*nn+1, 2}] (* _Vaclav Kotesovec_, Feb 08 2015 *)
%K nonn
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|