login
Expansion of sinh(x)/cos(sin(x)).
0

%I #13 Feb 02 2022 14:33:43

%S 1,4,16,-104,-5504,-69376,5144192,431779328,3270959104,-2994808352768,

%T -327470564016128,13424788329791488,9902586724481662976,

%U 1141033124277100085248,-243917918992354704359424

%N Expansion of sinh(x)/cos(sin(x)).

%t With[{nn=30},Take[CoefficientList[Series[Sinh[x]/Cos[Sin[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Feb 02 2022 *)

%K sign

%O 0,2

%A _R. H. Hardin_

%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997

%E Previous Mathematica program replaced by _Harvey P. Dale_, Feb 02 2022