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

%I #24 May 01 2024 17:02:00

%S 0,2,-4,-42,-8,5354,99956,22974,-72550928,-3076799278,-44239291156,

%T 4012843624614,426360266016232,20979538126746554,-55444364705437852,

%U -137742540801276301170,-16928772211833384004640

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

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

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

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

%K sign

%O 0,2

%A _R. H. Hardin_

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