|
%I #13 Jul 07 2023 17:24:24
%S 0,1,0,-4,12,-39,180,-1002,6328,-44843,351720,-3010536,27741780,
%T -271232571,2763421388,-28565959606,284847059760,-2385962778423,
%U 5704285264272,489538579791348,-19920957108600740,598894765796765521
%N Expansion of e.g.f.: sin(x)*cos(log(1+x)).
%t With[{nn=30},CoefficientList[Series[Sin[x]Cos[Log[1+x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jul 07 2023 *)
%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_, Jul 07 2023
|
