%I #7 Dec 20 2015 13:31:56
%S 1,1,1,2,1,-8,-83,-572,-3447,-21672,-123111,-737240,-3483619,
%T -13031484,70815357,2064032844,35771746481,493920403632,6641490804273,
%U 85856649793936,1103675761610485,14215393325698588
%N Expansion of e.g.f.: exp(exp(x)-sec(x))=1+x+1/2!*x^2+2/3!*x^3+1/4!*x^4-8/5!*x^5...
%t With[{nn=30},CoefficientList[Series[Exp[Exp[x]-Sec[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 20 2015 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Dec 20 2015
|