STATUS
editing
approved
editing
approved
Expansion of sin(sin(x)).*x/2.
Cf. A009478.
Extended with signs 03/97.Mar 1997
approved
editing
With[{nn=40}, Take[CoefficientList[Series[Sin[Sin[x]]x/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* From _Harvey P. Dale, _, Oct 04 2011 *)
_R. H. Hardin (rhhardin(AT)att.net)_
reviewed
approved
proposed
reviewed
editing
proposed
Harvey P. Dale, <a href="/A024253/b024253.txt">Table of n, a(n) for n = 0..100</a>
With[{nn=40}, Take[CoefficientList[Series[Sin[ Sin[ x ] ]*x/2 , {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Even Part From Harvey P. Dale, Oct 04 2011 *)
approved
editing
sign,new
sign
R. H. Hardin (rhhrhhardin(AT)cadenceatt.comnet)
sign,done,new
sign
R. H. Hardin (rhh@research.att(AT)cadence.com)