|
|
A009450
|
|
Expansion of e.g.f.: sin(log(1+sin(x))).
|
|
0
|
|
|
0, 1, -1, 0, 4, -19, 74, -290, 1184, -5059, 22124, -93580, 320464, 36401, -19721976, 335907130, -4599046656, 59558294361, -766372344976, 10001627076840, -133693424522176, 1839667828548821, -26126020673633376
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Sep 18 2016
|
|
STATUS
|
approved
|
|
|
|