login
A024292
Expansion of tan(x)*tan(sinh(x))/2.
0
0, 1, 10, 219, 8564, 524437, 46450750, 5626646319, 894412078184, 180742935386281, 45276238622931442, 13774062913385133315, 5003326210717698949340, 2139194270356365744961597
OFFSET
0,3
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended and signs tested 03/97.
Prior Mathematica program replaced by Harvey P. Dale, Aug 07 2015
STATUS
approved