login
Expansion of tan(x)*tan(sinh(x))/2.
0

%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