%I #15 Oct 21 2023 01:07:47

%S 1,1,0,-1,24,121,-480,-4201,48384,478801,-4968960,-62871601,885586944,

%T 12996863881,-203910819840,-3476839930201,63397697224704,

%U 1221998040867361,-24917358603141120,-537278342731116001

%N E.g.f: 1/(1 - sin(x) + sin(x)^2 - sin(x)^3).

%e 1/(1 - sin(x) + sin(x)^2 - sin(x)^3) = 1 + x - (1/6)*x^3 + x^4 + (121/120)*x^5 - (2/3)*x^6 - (4201/5040)*x^7 + (6/5)*x^8 + (478801/362880)*x^9 - (1294/945)*x^10 - ...

%t With[{nn=20},CoefficientList[Series[1/(1-Sin[x]+Sin[x]^2-Sin[x]^3),{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 28 2014 *)

%K sign

%O 0,5

%A _N. J. A. Sloane_

%E Corrected by _N. J. A. Sloane_, Nov 28 2014 at the suggestion of _Harvey P. Dale_