A024245 Expansion of tan(tan(x)*sin(x))/2.

0, 1, 2, 151, 4052, 473821, 43427702, 8101954771, 1565046469352, 448462238638201, 145356930860495402, 60733588252657064911, 29246431560267761883452, 16962897050271422096601301

Offset

0,3

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Tan[Tan[x]*Sin[x]]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, May 05 2015 *)

Crossrefs

A009705.

Sequence in context: A128350 A046473 A261967 * A113576 A102458 A206309

Adjacent sequences: A024242 A024243 A024244 * A024246 A024247 A024248

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested 03/97.

Prior Mathematica program replaced by Harvey P. Dale, May 05 2015

Status

approved