%I #6 Jul 04 2012 14:38:02
%S 1,0,0,-90,-3864,-326214,-33507276,-4970687722,-949869512144,
%T -236464361818318,-73751391110641012,-28454096973841135058,
%U -13304169550531141566328,-7432891904926457008929270
%N E.g.f.: sech(sin(x)-arctanh(x))=1-90/6!*x^6-3864/8!*x^8-326214/10!*x^10...
%t With[{nn=30},Take[CoefficientList[Series[Sech[Sin[x]-ArcTanh[x]],{x,0,nn}],x]Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jul 04 2012 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Jul 04 2012