%I #14 Apr 02 2017 15:27:40
%S 0,1,-12,371,-23212,2462221,-397812162,91074108971,-28061144757112,
%T 11197923936924121,-5618483731461136062,3461958000431478483671,
%U -2569952518351298130757012,2262189462485360615989843621,-2329800142118914687262408707962
%N Expansion of log(1+tanh(x)*sin(x))/2.
%t With[{nn=30},Take[CoefficientList[Series[Log[1+Tanh[x]*Sin[x]]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 30 2016 *)
%Y Cf. A009396.
%K sign
%O 0,3
%A _R. H. Hardin_
%E Extended with signs Mar 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Aug 30 2016