|
%I #12 Sep 14 2018 12:57:39
%S 0,1,1,0,-12,-45,-65,1400,12096,52269,-469307,-8565656,-73323052,
%T 223125903,11882866931,176275489312,328262199968,-26579607201031,
%U -672646430878551,-4665154122148880,76898559105113236,3784100596619704043
%N Expansion of tanh(log(1+x)*exp(x)).
%t With[{nn=30},CoefficientList[Series[Tanh[Log[1+x]*Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Sep 14 2018 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Sep 14 2018
|
