|
%I
%S 1,1,1,-4,-19,20,565,1024,-24743,-147568,1450985,19148736,-100090043,
%T -2934842560,5608180253,551525234688,703874231473,-127249126657792,
%U -601015521145391,35789287036394496,309193460848468125
%N Expansion of e.g.f.: exp(sech(x)*arctan(x))=1+x+1/2!*x^2-4/3!*x^3-19/4!*x^4+20/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Exp[Sech[x]ArcTan[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 22 2017 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Dec 22 2017
|
