%I #15 Jun 30 2021 18:43:31
%S 0,1,-1,-3,12,15,-375,819,13888,-108483,-551925,13545961,-22418484,
%T -1621656517,14484838277,186206989903,-4523278283040,-3719219044807,
%U 1200472177117815,-10141780669451755,-290942811953148500
%N Expansion of e.g.f.: tanh(log(1+x)*cos(x)).
%t With[{nn=20},CoefficientList[Series[Tanh[Log[1+x]*Cos[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 30 2021 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Definition (Name) clarified by and previous Mathematica program replaced by _Harvey P. Dale_, Jun 30 2021
|