A013252 arcsinh(log(x+1)-arctan(x)) = -1/2!*x^2+4/3!*x^3-6/4!*x^4-105/6!*x^6...

0, 0, -1, 4, -6, 0, -105, 1020, 700, -48160, -37485, 3406500, 19389150, -509652000, -5641120485, 166841192700, -280062549000, -9498060561600, -532972346765625, 12591110742783300, 60674315564333250, -3333599851120344000, -38693586241760875425

Offset

0,4

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Mathematica

With[{nn=20}, CoefficientList[Series[ArcSinh[Log[x+1]-ArcTan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 15 2014 *)

Crossrefs

Sequence in context: A013249 A013253 A013246 * A013251 A013247 A013248

Adjacent sequences: A013249 A013250 A013251 * A013253 A013254 A013255

Keyword

sign

Author

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

Extensions

First two terms prepended by Harvey P. Dale, Feb 15 2014

Status

approved