login
A009593
Expansion of e.g.f. sinh(sin(x)*cos(x)), odd powers only.
1
1, -3, -23, 1253, -37103, 371085, 76436089, -10302629131, 856245051169, -29959421725155, -7591883371988471, 2479373526284421125, -467017398613705230287, 54102457995859264343469
OFFSET
0,2
LINKS
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
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved