login
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
OFFSET
0,4
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
Sequence in context: A149329 A149330 A149331 * A248325 A344122 A328533
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Jul 07 2023
STATUS
approved