%I #15 Feb 09 2014 04:06:58
%S 1,0,12,-120,2576,-106560,4690752,-251957888,17894058240,
%T -1518819416064,147193120578560,-16536681255671808,
%U 2144498299945291776,-313806765843863552000,51199709803672550916096
%N Expansion of e.g.f. cosh(sin(x)*x), even powers only.
%H Vincenzo Librandi, <a href="/A009149/b009149.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Cosh[Sin[x]*x],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Nov 07 2013 *)
%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_, Nov 07 2013