login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #11 Apr 02 2017 14:47:13

%S 0,1,-2,-57,1676,-17635,-1122006,99327235,-4010916008,-75491622279,

%T 33762742192790,-3763414135963009,184034237755893348,

%U 24103347121120917013,-8293034089278790553534

%N Expansion of sin(sin(x)*x)/2.

%t With[{nn=30},Take[CoefficientList[Series[Sin[Sin[x]*x]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Nov 02 2015 *)

%Y Cf. A009484.

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs Mar 1997

%E Prior Mathematica program replaced by _Harvey P. Dale_, Nov 02 2015