login
Expansion of log(1+tanh(x)*sin(x))/2.
0

%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