%I #18 Apr 02 2017 15:39:32
%S 0,0,1,-3,7,-20,102,-658,4364,-32736,293760,-2954512,31998048,
%T -377807040,4885788992,-68173993856,1016048413440,-16157627437056,
%U 273596846948352,-4908327247431680,92923391633776640,-1852316352709746688
%N Expansion of log(1+x)*log(1+tanh(x))/2.
%H Vincenzo Librandi, <a href="/A024331/b024331.txt">Table of n, a(n) for n = 0..200</a>
%t With[{nn=30},CoefficientList[Series[Log[1+x]*Log[1+Tanh[x]]/2,{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 30 2013 *)
%Y Cf. A009423.
%K sign
%O 0,4
%A _R. H. Hardin_
%E Extended with signs, Mar 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Nov 30 2013
|