login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Expansion of e.g.f.: sin(x)*cos(log(1+x)).
0

%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