%I #12 Jun 21 2015 21:52:53
%S 1,0,1,-3,20,-140,1216,-12096,137080,-1737504,24368656,-374527120,
%T 6259083896,-112992788688,2191121957480,-45420491782680,
%U 1002232901602496,-23453004823018496,580102806342112960
%N Expansion of e.g.f.: cosh(tan(log(1+x))).
%t With[{nn=20},CoefficientList[Series[Cosh[Tan[Log[1+x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 15 2014 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Dec 15 2014
|