A012967 E.g.f.: tanh(arctan(x)+log(x+1))=2*x-1/2!*x^2-16/3!*x^3+42/4!*x^4+500/5!*x^5...

0, 2, -1, -16, 42, 500, -3210, -31960, 409640, 3197360, -78190200, -405352000, 20714298000, 39783504800, -7213870190800, 15836666456000, 3165414330000000, -23690623723936000, -1688397526908144000

Offset

0,2

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Tanh[ArcTan[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 11 2014 *)

Crossrefs

Sequence in context: A162005 A325220 A013125 * A013121 A012963 A013120

Adjacent sequences: A012964 A012965 A012966 * A012968 A012969 A012970

Keyword

sign

Author

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

Extensions

Zero prepended and definition clarified by Harvey P. Dale, Mar 11 2014

Status

approved