A009535 Expansion of sin(x)*cos(tan(x)).

1, -4, -24, -456, -11264, -289664, 3000960, 2697206272, 625547980800, 138214081974272, 32824743592198144, 8622090358801989632, 2517001357223737327616, 813249999853716681654272, 288227689418308842574053376, 110555226159597276214983917568

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Sin[x]Cos[Tan[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jun 18 2013 *)

Crossrefs

Sequence in context: A166947 A103624 A101952 * A139096 A111425 A013100

Adjacent sequences: A009532 A009533 A009534 * A009536 A009537 A009538

Keyword

sign

Author

R. H. Hardin

Extensions

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

More terms from and prior Mathematica program replaced by Harvey P. Dale, Jun 18 2013

Status

approved