%I #6 Dec 13 2012 15:25:04
%S 1,0,0,0,3,-10,100,-693,6433,-59652,656934,-7661335,99643159,
%T -1389188502,20999144296,-338912370405,5846415568641,-107035268122024,
%U 2076101997603994,-42490682821565523
%N sec(log(x+1)-sinh(x))=1+3/4!*x^4-10/5!*x^5+100/6!*x^6-693/7!*x^7...
%t With[{nn=20},CoefficientList[Series[Sec[Log[x+1]-Sinh[x]],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Dec 13 2012 *)
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)