%I #13 Jun 21 2015 21:52:16
%S 1,0,0,3,-15,70,-354,1995,-12667,89892,-705244,6042575,-55837075,
%T 548985138,-5650236630,59493168735,-615581655639,5683518687560,
%U -30016869620472,-587400084741573,31322604753002761,-1006072267431660450
%N Expansion of e.g.f.: cosh(x)*cos(log(1+x)).
%t With[{nn=30},CoefficientList[Series[Cosh[x]*Cos[Log[1+x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 09 2015 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, May 09 2015
|