|
%I #12 Aug 20 2012 19:28:01
%S 2,208,680832,13382891520,900036879360000,154882202019677798400,
%T 57048038229121314631188480,39842938883822751996178291752960,
%U 48329392241807199563371957327138652160,95258638419599144345659651051786276479959040
%N E.g.f.: arcsin(arcsinh(x)*arcsin(x)) = 2/2!*x^2+208/6!*x^6+680832/10!*x^10...
%H Alois P. Heinz, <a href="/A012600/b012600.txt">Table of n, a(n) for n = 0..50</a>
%F a(n) = (4*n+2)! * [2^(4*n+2)] arcsin(arcsinh(x)*arcsin(x)).
%p b:= n-> n!* coeff(series(arcsin(arcsinh(x)*arcsin(x)), x, n+1 ), x, n):
%p a:= n-> b(4*n+2):
%p seq (a(n), n=0..10); # _Alois P. Heinz_, Aug 20 2012
%t With[{nn=40},Take[CoefficientList[Series[ArcSin[ArcSinh[x]ArcSin[x]],{x,0,nn}],x]Range[0,nn-2]!,{3,-1,4}]] (* _Harvey P. Dale_, Aug 20 2012 *)
%K nonn
%O 0,1
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E More terms from and definition clarified by _Harvey P. Dale_, Aug 20 2012
|
