A012704 arcsinh(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, 248, -504, -1584, 94536, -1222848, 16675560, -150260640, 1047505680, 12037737840, -574519410360, 16243532175360, -341049918471360, 6341386354483200, -86729688288097920, 452837960565661440, 31661940854577882240, -1682428415293547953920

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[ArcSinh[ArcTanh[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 28 2013 *)

Crossrefs

Sequence in context: A012701 A012356 A012352 * A012698 A302611 A012355

Adjacent sequences: A012701 A012702 A012703 * A012705 A012706 A012707

Keyword

sign

Author

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

Status

approved