A012703 Expansion of e.g.f.: sinh(arctanh(x)*log(x+1))=2/2!*x^2-3/3!*x^3+16/4!*x^4-50/5!*x^5...

0, 0, 2, -3, 16, -50, 488, -3024, 35376, -313704, 4119552, -46248840, 682997280, -9209575440, 152505104880, -2394128401560, 44145984906240, -789552273397440, 16082343831221760, -322420285049880960

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sinh[ArcTanh[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 03 2018 *)

Crossrefs

Sequence in context: A302611 A012355 A012353 * A012699 A012354 A012358

Adjacent sequences: A012700 A012701 A012702 * A012704 A012705 A012706

Keyword

sign

Author

Patrick Demichel

Extensions

Definition clarified and first two zero terms prepended by Harvey P. Dale, May 03 2018

Status

approved