%I #8 Apr 01 2024 10:03:35
%S 0,1,0,44,352,25232,1044608,86611520,8060400640,1016049182976,
%T 155613732065280,29190135887043584,6526669398291292160,
%U 1719640681837101944832,526864606689799747764224
%N Expansion of tan(x)*sin(sin(x))/2.
%t With[{nn=30},Take[CoefficientList[Series[Tan[x]*Sin[Sin[x]]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Apr 01 2024 *)
%Y A009740.
%K nonn
%O 0,4
%A _R. H. Hardin_
%E Extended and signs tested 03/97.
%E Previous Mathematica program replaced by _Harvey P. Dale_, Apr 01 2024
|