%I #8 May 05 2015 09:29:11
%S 0,1,2,151,4052,473821,43427702,8101954771,1565046469352,
%T 448462238638201,145356930860495402,60733588252657064911,
%U 29246431560267761883452,16962897050271422096601301
%N Expansion of tan(tan(x)*sin(x))/2.
%t With[{nn=30},Take[CoefficientList[Series[Tan[Tan[x]*Sin[x]]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, May 05 2015 *)
%Y A009705.
%K nonn
%O 0,3
%A _R. H. Hardin_
%E Extended and signs tested 03/97.
%E Prior Mathematica program replaced by _Harvey P. Dale_, May 05 2015
|