A009706 - OEIS

%I #12 May 22 2017 10:40:52

%S 0,2,12,382,23352,2223002,318236292,63069898582,16506522005232,

%T 5516152886719922,2290713333669640572,1156963264109505327022,

%U 698325697094916345135912,496389417580098665436907082

%N tan(sinh(x)*tan(x))=2/2!*x^2+12/4!*x^4+382/6!*x^6+23352/8!*x^8...

%t With[{nn=30},Take[CoefficientList[Series[Tan[Tan[x]*Sinh[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, May 22 2017 *)

%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_, May 22 2017