|
%I #11 Aug 01 2020 16:40:50
%S 1,2,24,622,27944,1905482,182347044,23219007502,3785452962224,
%T 767440357144082,189091470902634684,55586950224109363222,
%U 19201372121239603122824,7694882454025442035178522
%N Expansion of exp(tan(x)*sinh(x)).
%t With[{nn=30},Take[CoefficientList[Series[Exp[Tan[x]*Sinh[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 01 2020 *)
%K nonn
%O 0,2
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
%E Previous Mathematica program replaced by _Harvey P. Dale_, Aug 01 2020
|
