%I #9 Mar 11 2019 11:57:57
%S 1,-1,-1,4,5,-32,-55,390,961,-6432,-22463,134550,649761,-3443208,
%T -22456551,105379838,911433121,-3787776224,-42942180863,157078439014,
%U 2324211078513,-7384507525560,-143088139308519
%N Expansion of e.g.f.: exp(cos(x)-exp(x))=1-x-1/2!*x^2+4/3!*x^3+5/4!*x^4-32/5!*x^5...
%t With[{nn=30},CoefficientList[Series[Exp[Cos[x]-Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Mar 11 2019 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Mar 11 2019