A013240 arcsinh(log(x+1)-tan(x))=-1/2!*x^2-6/4!*x^4+8/5!*x^5-105/6!*x^6...

0, 0, -1, 0, -6, 8, -105, 448, -3780, 29360, -239085, 2498848, -23480226, 280142744, -3229879653, 41622253216, -582786564360, 8232828649568, -134282588969529, 2159014224301504, -39520792904437310

Offset

0,5

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..448

Mathematica

CoefficientList[Series[ArcSinh[Log[1 + x] - Tan[x]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Feb 04 2015 *)

Crossrefs

Sequence in context: A013241 A013237 A013234 * A161801 A211041 A236754

Adjacent sequences: A013237 A013238 A013239 * A013241 A013242 A013243

Keyword

sign

Author

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

Extensions

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

Status

approved