%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