|
|
A009079
|
|
Expansion of e.g.f. cos(tan(x)*sinh(x)), even powers only.
|
|
1
|
|
|
1, 0, -12, -360, -11312, -342720, 1391808, 3011648640, 712998408448, 151782346782720, 33053467644945408, 7470073537438955520, 1689905119837405401088, 334766606514085190615040, 19605053176568811703615488, -43798309867240412782195998720
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
More terms from and prior Mathematica program replaced by Harvey P. Dale, Aug 23 2014
|
|
STATUS
|
approved
|
|
|
|