A009060 Expansion of e.g.f. cos(sinh(x)*cos(x)), even terms only.

1, -1, 9, -57, 497, -9169, -299079, 7650615, -160774303, 24228427487, 1725345708777, -79802910103257, -2815860329426863, -984434470218538993, -121507651305985736295, 12515845746505026745239

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..250

Maple

seq(coeff(series(factorial(n)*cos(sinh(x)*cos(x)), x, n+1), x, n), n=0..40, 2); # Muniru A Asiru, Jul 24 2018

Mathematica

With[{nmax = 60}, CoefficientList[Series[Cos[Sinh[x]*Cos[x]], {x, 0, nmax}], x]*Range[0, nmax]!][[1 ;; -1 ;; 2]] (* G. C. Greubel, Jul 23 2018 *)

Prog

(PARI) x='x+O('x^50); v=Vec(serlaplace(cos(sinh(x)*cos(x)))); vector(#v\2, n, v[2*n-1]) \\ G. C. Greubel, Jul 23 2018

Crossrefs

Sequence in context: A199485 A102303 A231310 * A112616 A197673 A012089

Adjacent sequences: A009057 A009058 A009059 * A009061 A009062 A009063

Keyword

sign

Author

R. H. Hardin

Extensions

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

Status

approved