%I #7 Nov 21 2013 12:46:02
%S 1,0,-1,-6,-15,0,183,1162,4305,4032,-75169,-720390,-4057119,-13316160,
%T 17994039,691795018,6706003809,45159313536,210202685567,247239745914,
%U -8759676926319,-137896385117568,-1415069646671241
%N cos(exp(x)-cos(x))=1-1/2!*x^2-6/3!*x^3-15/4!*x^4+183/6!*x^6...
%t With[{nn=25},CoefficientList[Series[Cos[Exp[x]-Cos[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Oct 21 2011 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)