%I #16 Feb 09 2014 12:42:27
%S 0,1,4,4,-1152,-91888,-7570624,-730713664,-83226398720,
%T -10970712254208,-1615807519095808,-249282435016526848,
%U -33772384403350126592,-217538905379543379968,3508702299226395880538112
%N Expansion of e.g.f. sinh(x)*sin(tan(x))/2, even powers only.
%H Vincenzo Librandi, <a href="/A024247/b024247.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Sinh[x]Sin[Tan[x]]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Oct 24 2013 *)
%Y Cf. A009627.
%K sign
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Oct 24 2013
%E Clarified definition, _Joerg Arndt_, Feb 09 2014