A024292 Expansion of tan(x)*tan(sinh(x))/2.

0, 1, 10, 219, 8564, 524437, 46450750, 5626646319, 894412078184, 180742935386281, 45276238622931442, 13774062913385133315, 5003326210717698949340, 2139194270356365744961597

Offset

0,3

Links

Table of n, a(n) for n=0..13.

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

A009749.

Sequence in context: A007698 A007699 A024291 * A094420 A053131 A334908

Adjacent sequences: A024289 A024290 A024291 * A024293 A024294 A024295

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested 03/97.

Prior Mathematica program replaced by Harvey P. Dale, Aug 07 2015

Status

approved