login
Expansion of e.g.f.: cos(exp(x)-sec(x))=1-1/2!*x^2-3/4!*x^4+20/5!*x^5+3/6!*x^6...
0

%I #6 Mar 27 2022 18:51:02

%S 1,0,-1,0,-3,20,3,420,-343,8424,-22249,260040,-239547,10498748,

%T 94138107,-147119700,19810696721,-201766341168,3757708820591,

%U -61124264974704,781479753273933,-16996638107062684

%N Expansion of e.g.f.: cos(exp(x)-sec(x))=1-1/2!*x^2-3/4!*x^4+20/5!*x^5+3/6!*x^6...

%t With[{nn=30},CoefficientList[Series[Cos[Exp[x]-Sec[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Mar 27 2022 *)

%K sign

%O 0,5

%A Patrick Demichel (patrick.demichel(AT)hp.com)

%E Definition clarified by _Harvey P. Dale_, Mar 27 2022