A009513 sin(tan(x)*sin(x))=2/2!*x^2+4/4!*x^4-58/6!*x^6-1976/8!*x^8...

0, 2, 4, -58, -1976, -125878, -9435956, -836433778, -89733620336, -11137238248558, -1522227026225516, -206921536362952618, -18449844567266861096, 5345369219895500654042, 5647561940802724266444124

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sin[Tan[x]*Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 31 2017 *)

Crossrefs

Sequence in context: A098626 A012370 A012366 * A242737 A018348 A001625

Adjacent sequences: A009510 A009511 A009512 * A009514 A009515 A009516

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Previous Mathematica program replaced by Harvey P. Dale, Aug 31 2017

Status

approved