A009593 - OEIS

%I #17 Jan 31 2018 03:18:30

%S 1,-3,-23,1253,-37103,371085,76436089,-10302629131,856245051169,

%T -29959421725155,-7591883371988471,2479373526284421125,

%U -467017398613705230287,54102457995859264343469

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

%H G. C. Greubel, <a href="/A009593/b009593.txt">Table of n, a(n) for n = 0..250</a>

%t 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 *)

%o (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

%K sign

%O 0,2

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997