|
%I #13 Jun 22 2015 22:51:23
%S 0,1,0,-1,12,-54,360,-2094,15568,-113516,979200,-8587668,84989520,
%T -863430840,9562970144,-108058865368,1285366485120,-15130564865136,
%U 174638241040896,-1701739763904144,7392841627579840,326394843481495456
%N Expansion of tan(x)*cos(log(1+x)).
%t Tan[ x ]*Cos[ Log[ 1+x ] ]
%t CoefficientList[Series[Cos[Log[1 + x]]*Tan[x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 24 2015 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
