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

0, 1, 2, -29, -988, -62939, -4717978, -418216889, -44866810168, -5568619124279, -761113513112758, -103460768181476309, -9224922283633430548, 2672684609947750327021, 2823780970401362133222062

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Cf. A009513.

Sequence in context: A245252 A090251 A087281 * A367551 A077282 A059725

Adjacent sequences: A024231 A024232 A024233 * A024235 A024236 A024237

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs Mar 1997

Prior Mathematica program replaced by Harvey P. Dale, Jan 11 2017

Status

approved