login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #6 Dec 24 2014 11:51:36

%S 1,0,1,-3,4,-40,250,-1260,14012,-133992,1310660,-16809980,215083592,

%T -2938291200,45330896832,-728363224680,12475447944528,

%U -230003712851648,4451144492528080,-91010462837366448

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

%t With[{nn=20},CoefficientList[Series[Sec[Cos[x]Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 24 2014 *)

%K sign

%O 0,4

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

%E Definition clarified by _Harvey P. Dale_, Dec 24 2014