A024300 Expansion of tan(sin(x))*sin(x)/2.

0, 1, 0, -16, -320, 512, 330752, 12652544, -474349568, -108303286272, -5003002773504, 1006927880388608, 231200342870589440, 5316662410642194432, -8274789542105574277120, -1938943461906570522132480

Offset

0,4

Links

Table of n, a(n) for n=0..15.

Mathematica

With[{nn=40}, Take[CoefficientList[Series[(Tan[Sin[x]]Sin[x])/2, {x, 0, nn}], x]Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Apr 10 2012 *)

Crossrefs

Cf. A009665.

Sequence in context: A356571 A231742 A027547 * A165119 A165128 A165121

Adjacent sequences: A024297 A024298 A024299 * A024301 A024302 A024303

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs Mar 1997

Status

approved