%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_