|
%I #12 Jan 07 2016 18:29:24
%S 0,1,-3,10,-60,535,-5545,65182,-880992,13534757,-231683143,4360580794,
%T -89533557212,1992568741579,-47774231187709,1227455840670542,
%U -33641659053337888,979722562830640169,-30211554791018748267
%N Expansion of e.g.f.: tan(log(1+x)/exp(x)).
%t With[{nn=20},CoefficientList[Series[Tan[Log[1+x]/Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jan 07 2016 *)
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Jan 07 2016
|
