The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #15 Mar 01 2019 16:29:26
%S 0,1,-6,116,-4816,342736,-37272576,5748462656,-1193465153536,
%T 320935235205376,-108513125117853696,45057835625375568896,
%U -22540295648947188269056,13370560809273727964041216
%N E.g.f: log(1+sinh(x)*sin(x))/2 (even powers only).
%e log(1+sinh(x)*sin(x))/2 = 0 + 1/2*x^2 - 1/4*x^4 + 29/180*x^6 - 43/360*x^8 + 21421/226800*x^10 +- ... .
%t With[{nn=30},Take[CoefficientList[Series[Log[1+Sinh[x]*Sin[x]]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Mar 01 2019 *)
%Y Cf. A009359.
%K sign
%O 0,3
%A _R. H. Hardin_
%E Extended with signs, Mar 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Mar 01 2019