A009593 Expansion of e.g.f. sinh(sin(x)*cos(x)), odd powers only.

1, -3, -23, 1253, -37103, 371085, 76436089, -10302629131, 856245051169, -29959421725155, -7591883371988471, 2479373526284421125, -467017398613705230287, 54102457995859264343469

Offset

0,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A013390 A144986 A088056 * A351107 A009818 A210734

Adjacent sequences: A009590 A009591 A009592 * A009594 A009595 A009596

Keyword

sign

Author

R. H. Hardin

Extensions

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

Status

approved