A009547 Expansion of e.g.f. sin(x)*sin(sinh(x)) (even powers only).

0, 2, -4, -42, -8, 5354, 99956, 22974, -72550928, -3076799278, -44239291156, 4012843624614, 426360266016232, 20979538126746554, -55444364705437852, -137742540801276301170, -16928772211833384004640

Offset

0,2

Links

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

Mathematica

With[{nmax = 50}, CoefficientList[Series[Sin[x]*Sin[Sinh[x]], {x, 0, nmax}], x]*Range[0, nmax]!][[1 ;; ;; 2]] (* G. C. Greubel, Jan 20 2018 *)

Prog

(PARI) x='x+O('x^50); v=Vec(serlaplace(sin(x)*sin(sinh(x)))); concat([0], vector(#v\2, n, v[2*n-1])) \\ G. C. Greubel, Jan 20 2018

Crossrefs

Sequence in context: A184245 A103105 A018312 * A215921 A009811 A364237

Adjacent sequences: A009544 A009545 A009546 * A009548 A009549 A009550

Keyword

sign,changed

Author

R. H. Hardin

Extensions

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

Status

approved