A012356 Arcsinh(tan(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, 200, -336, -6064, 116712, -1581632, 17791400, -157012000, 574136784, 21325944432, -798665850360, 19278624193536, -380309849100992, 6114157546197504, -63277940734496640, -554593212740135168

Offset

0,3

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[ArcSinh[Tan[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Apr 19 2012 *)

Crossrefs

Sequence in context: A380950 A012357 A012701 * A012352 A012704 A012698

Adjacent sequences: A012353 A012354 A012355 * A012357 A012358 A012359

Keyword

sign

Author

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

Extensions

Prepended a(0)=a(1)=0 from Vaclav Kotesovec, Feb 03 2015

Status

approved