%I #6 Aug 21 2014 14:07:52
%S 0,1,0,3,-4,37,-180,1015,-11464,57961,-1001640,6231819,-117917644,
%T 1041455053,-18546221148,232421139007,-3887058864784,64390950162769,
%U -1075269065795664,21514220038798995,-383113444907091604
%N E.g.f.: tan(exp(x)-sec(x))=x+3/3!*x^3-4/4!*x^4+37/5!*x^5-180/6!*x^6...
%t With[{nn=20},CoefficientList[Series[Tan[Exp[x]-Sec[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 21 2014 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified and zero prepended by _Harvey P. Dale_, Aug 21 2014
|