A013328 - OEIS

%I #13 Aug 06 2018 02:41:34

%S 0,1,0,0,-4,-8,0,-56,1136,-4976,47040,-541728,2460416,-51170624,

%T 202185984,-5359238912,20705351936,-673408564736,2215089472512,

%U -100278515381760,202372883465216,-17008883052323840

%N Expansion of e.g.f. sin(exp(x)-sec(x)).

%e x-4/4!*x^4-8/5!*x^5-56/7!*x^7+1136/8!*x^8...

%t With[{nn=30},CoefficientList[Series[Sin[Exp[x]-Sec[x]],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Jan 22 2013 *)

%o (PARI) x = 'x + O('x^30); concat(0, Vec(serlaplace(sin(exp(x)-1/cos(x))))) \\ _Michel Marcus_, Aug 06 2018

%K sign

%O 0,5

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

%E Definition clarified by _Harvey P. Dale_, Jan 22 2013

%E a(0)=0 inserted by _Sean A. Irvine_, Aug 05 2018