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

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

Links

Table of n, a(n) for n=0..21.

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

Adjacent sequences: A009529 A009530 A009531 * A009533 A009534 A009535

Keyword

sign,easy

Author

R. H. Hardin

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