login
A009535
Expansion of sin(x)*cos(tan(x)).
1
1, -4, -24, -456, -11264, -289664, 3000960, 2697206272, 625547980800, 138214081974272, 32824743592198144, 8622090358801989632, 2517001357223737327616, 813249999853716681654272, 288227689418308842574053376, 110555226159597276214983917568
OFFSET
0,2
LINKS
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 A374068
KEYWORD
sign
AUTHOR
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