|
%I #15 Sep 26 2016 11:39:58
%S 0,1,0,-5,12,-14,120,-1238,6608,-30092,279360,-3130852,26571600,
%T -212970328,2311816416,-27582585592,262039232640,-1763092281712,
%U 1470511954944,439606528588592,-18342263739368000,558461845910267936,-15219479141544881280,406782245791659905440
%N Expansion of e.g.f.: tanh(x)*cos(log(1+x)).
%t With[{nn=30},CoefficientList[Series[Tanh[x]*Cos[Log[1+x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Sep 17 2016 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and previous Mathematica program replaced by _Harvey P. Dale_, Sep 17 2016
|
