|
%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
|
