A009450 Expansion of e.g.f.: sin(log(1+sin(x))).

0, 1, -1, 0, 4, -19, 74, -290, 1184, -5059, 22124, -93580, 320464, 36401, -19721976, 335907130, -4599046656, 59558294361, -766372344976, 10001627076840, -133693424522176, 1839667828548821, -26126020673633376

Offset

0,5

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sin[Log[1+Sin[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 18 2016 *)

Crossrefs

Sequence in context: A256714 A110688 A218920 * A096978 A186810 A167478

Adjacent sequences: A009447 A009448 A009449 * A009451 A009452 A009453

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Sep 18 2016

Status

approved