A013218 E.g.f.: arctanh(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, -150, 1351, -12600, 118187, -1224720, 14702941, -200731608, 2986886693, -47352985680, 800879433355, -14538372969120, 282952402841303, -5862543549637824, 128430397643505121, -2964326737589237000, 71982961886998521617

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[ArcTanh[Log[x+1]-Sin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 01 2013 *)

Crossrefs

Sequence in context: A013215 A013211 A013212 * A101738 A083525 A106213

Adjacent sequences: A013215 A013216 A013217 * A013219 A013220 A013221

Keyword

sign

Author

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

Extensions

Definition clarified and first two terms prepended by Harvey P. Dale, Oct 01 2013

Status

approved