A013210 Expansion of e.g.f.: sin(log(x+1) - sin(x)) = -1/2!*x^2+3/3!*x^3-6/4!*x^4+23/5!*x^5...

0, 0, -1, 3, -6, 23, -105, 406, -1260, 1385, 55755, -1232594, 20220354, -312914383, 4892322435, -78950848976, 1325556752520, -23243942565943, 426334224758967, -8180116120702106, 164087156833319710, -3437833525919834035, 75145008886144335831

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[Log[x+1]-Sin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 29 2015 *)

Crossrefs

Sequence in context: A013213 A013217 A013216 * A264792 A013215 A013211

Adjacent sequences: A013207 A013208 A013209 * A013211 A013212 A013213

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

First two terms inserted and definition clarified by Harvey P. Dale, Sep 29 2015

Status

approved