%I #18 Apr 22 2014 08:59:31
%S 0,2,8,8,-2112,42912,30652800,4329375360,111548774400,-87989094796800,
%T 7067984075827200,26753302456361994240,13666529274765422837760,
%U 1617292455279293013073920,-1901977500391306259142574080
%N E.g.f.: arcsinh(arcsin(x)^2) (even powers only).
%H Vincenzo Librandi, <a href="/A012346/b012346.txt">Table of n, a(n) for n = 0..100</a>
%e arcsinh(arcsin(x)^2) = 0 + 2/2!*x^2 + 8/4!*x^4 + 8/6!*x^6 - 2112/8!*x^8+-...
%t With[{nn=30},Take[CoefficientList[Series[ArcSinh[ArcSin[x]^2],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Apr 21 2014 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)