|
|
A009532
|
|
Expansion of e.g.f.: sin(x)*cos(log(1+x)).
|
|
0
|
|
|
0, 1, 0, -4, 12, -39, 180, -1002, 6328, -44843, 351720, -3010536, 27741780, -271232571, 2763421388, -28565959606, 284847059760, -2385962778423, 5704285264272, 489538579791348, -19920957108600740, 598894765796765521
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Sin[x]Cos[Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 07 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Jul 07 2023
|
|
STATUS
|
approved
|
|
|
|