A024270 Expansion of sin(x)*sin(sin(x))/2.

0, 1, -6, 59, -908, 18677, -487186, 15884591, -629675288, 29536549353, -1613063972382, 101389361542691, -7251646333534372, 584069408536408797, -52535046765694820650, 5240820278389450723095, -576261065508176155275824

Offset

0,3

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Sin[x]*Sin[Sin[x]]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jun 10 2022 *)

Crossrefs

Cf. A009546.

Sequence in context: A075136 A024382 A053987 * A024271 A271964 A237576

Adjacent sequences: A024267 A024268 A024269 * A024271 A024272 A024273

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs Mar 1997

Previous Mathematica program replaced by Harvey P. Dale, Jun 10 2022

Status

approved