%I #16 Mar 29 2013 12:30:37
%S 0,1,15,495,29575,2805075,387547875,73496998575,18322452939375,
%T 5810121991600875,2283796491396190875,1089828106992320070375,
%U 620645663306405750934375,415796249727049685923771875,323721378608985101109612121875,289840773808099328924207553609375
%N E.g.f.: -arcsin(arcsin(x) - arctanh(x)) (odd powers only).
%e -arcsin(arcsin(x) - arctanh(x)) = 1/3!*x^3 + 15/5!*x^5 + 495/7!*x^7 + 29575/9!*x^9 + ...
%t With[{nn=30},-Take[CoefficientList[Series[ArcSin[ArcSin[x]-ArcTanh[x]],{x,0,nn}], x] Range[0,nn-1]!,{4,-1,2}]] (* _Harvey P. Dale_, Mar 28 2013 *)
%o (PARI)
%o N = 2*66; x = 'x + O('x^N);
%o egf = -asin(asin(x) - atanh(x)) + 'c0;
%o gf = serlaplace(egf);
%o v = Vec(gf); v[1]-='c0;
%o vector(#v\2, n, v[2*n])
%o /* _Joerg Arndt_, Mar 29 2013 */
%K nonn
%O 1,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|