OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..239
MAPLE
seq(coeff(series(factorial(n)*cos(tan(x)*sinh(x)), x, n+1), x, n), n=0..30, 2); # Muniru A Asiru, Jul 25 2018
MATHEMATICA
With[{nn=40}, Take[CoefficientList[Series[Cos[Tan[x] Sinh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 23 2014 *)
PROG
(PARI) x='x+O('x^60); v=Vec(serlaplace(cos(tan(x)*sinh(x)))); vector(#v\2, n, v[2*n-1]) \\ G. C. Greubel, Jul 24 2018
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, Aug 23 2014
STATUS
approved