A024279 - OEIS

%I #9 Aug 12 2019 11:04:38

%S 0,1,6,191,11676,1111501,159118146,31534949291,8253261002616,

%T 2758076443359961,1145356666834820286,578481632054752663511,

%U 349162848547458172567956,248194708790049332718453541

%N Expansion of tan(tan(x)*sinh(x))/2.

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

%Y A009706.

%K nonn

%O 0,3

%A _R. H. Hardin_

%E Extended and signs tested 03/97.

%E Previous Mathematica program replaced by _Harvey P. Dale_, Aug 12 2019