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
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