|
%I #11 Aug 28 2019 16:55:13
%S 0,1,-4,91,-3004,204061,-19378954,2719355731,-504005966104,
%T 122050103412601,-37013909750634454,13810412109218174671,
%U -6202801292273010744004,3304722240330810208121941
%N Expansion of log(1+tan(x)*sin(x))/2.
%t With[{nn=30},Take[CoefficientList[Series[Log[1+Tan[x]*Sin[x]]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 28 2019 *)
%Y Cf. A009377.
%K sign
%O 0,3
%A _R. H. Hardin_
%E Extended with signs, Mar 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Aug 28 2019
|
