%I #6 Apr 17 2016 10:21:40
%S 1,0,-1,3,-18,60,-180,-1050,24192,-308952,3131760,-23742840,62587272,
%T 2606501040,-75839636600,1415140435800,-20144425867712,
%U 187207018203392,730860552463104,-93674690778135744
%N Expansion of e.g.f.: sech(sec(x)*log(x+1))=1-1/2!*x^2+3/3!*x^3-18/4!*x^4+60/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Sech[Sec[x]Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Apr 17 2016 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Apr 17 2016