login
Expansion of e.g.f. cosh(sin(x)*x), even powers only.
1

%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