A009631 - OEIS

%I #10 Sep 04 2023 11:33:41

%S 1,4,76,3256,235408,25823744,4007103296,836059707008,225808591264000,

%T 76659294873275392,31954924327960714240,16046151385106990553088,

%U 9553929740491469212061696,6655283798759275562178347008

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

%t With[{nn=30},Take[CoefficientList[Series[Sinh[x]/Cos[Tan[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Sep 04 2023 *)

%K nonn

%O 0,2

%A _R. H. Hardin_

%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.

%E Prior Mathematica program replaced by _Harvey P. Dale_, Sep 04 2023