%I #8 Aug 07 2015 16:00:18
%S 0,1,10,219,8564,524437,46450750,5626646319,894412078184,
%T 180742935386281,45276238622931442,13774062913385133315,
%U 5003326210717698949340,2139194270356365744961597
%N Expansion of tan(x)*tan(sinh(x))/2.
%t With[{nn=30},Take[CoefficientList[Series[Tan[x]*Tan[Sinh[x]]/2 ,{x, 0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 07 2015 *)
%Y A009749.
%K nonn
%O 0,3
%A _R. H. Hardin_
%E Extended and signs tested 03/97.
%E Prior Mathematica program replaced by _Harvey P. Dale_, Aug 07 2015