A013240 - OEIS

%I #7 Feb 04 2015 10:34:30

%S 0,0,-1,0,-6,8,-105,448,-3780,29360,-239085,2498848,-23480226,

%T 280142744,-3229879653,41622253216,-582786564360,8232828649568,

%U -134282588969529,2159014224301504,-39520792904437310

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

%H Vaclav Kotesovec, <a href="/A013240/b013240.txt">Table of n, a(n) for n = 0..448</a>

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

%K sign

%O 0,5

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

%E Prepended missing a(0)=a(1)=0 from _Vaclav Kotesovec_, Feb 04 2015