%I #8 Nov 21 2013 12:46:01
%S 1,0,0,504,24384,2375296,338479232,64501554688,16130341302272,
%T 5112670099460096,2003580047549120512,951418445045046378496,
%U 538352433444301745848320,357916525207050277213175808
%N sinh(arctanh(x)*cos(x))=x+504/7!*x^7+24384/9!*x^9+2375296/11!*x^11...
%t With[{nn=30},Take[CoefficientList[Series[Sinh[ArcTanh[x]Cos[x]],{x,0,nn}], x]Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Nov 20 2011 *)
%K nonn,easy
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)