%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