|
%I #6 Dec 07 2013 18:27:55
%S 1,0,4,-6,115,-500,8734,-70602,1289945,-15743304,315266344,
%T -5159155430,115185531211,-2350119405036,58713986375802,
%U -1425578090696970,39746678648110001,-1113352395040853712
%N Expansion of e.g.f.: sec(tan(x)+log(x+1))=1+4/2!*x^2-6/3!*x^3+115/4!*x^4-500/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Sec[Tan[x]+Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 07 2013 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Dec 07 2013
|
