%I #12 Jul 14 2022 17:07:45
%S 1,0,0,0,12,-60,570,-3780,36960,-326592,3712200,-41836080,554861736,
%T -7563345504,114963916704,-1819859452320,31173297642240,
%U -558346710891904,10642982507666880,-212150797420894848,4456607540110934912
%N Expansion of e.g.f.: cosh(tan(x)*log(1+x)).
%t With[{nn=20},CoefficientList[Series[Cosh[Tan[x]*Log[1+x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jul 14 2022 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Previous Mathematica program replaced and definition clarified by _Harvey P. Dale_, Jul 14 2022