A332487 - OEIS

%I #4 Apr 28 2020 00:17:05

%S 2,3,4,5,6,8,9,10,11,12,15,16,17,18,21,22,23,24,25,27,28,29,30,31,33,

%T 34,35,36,37,40,41,42,43,46,47,48,49,50,52,53,54,55,56,59,60,61,62,65,

%U 66,67,68,69,71,72,73,74,75,77,78,79,80,81,84,85,86,87

%N Numbers k such that sin(k) < 0 or cos(k) < 0.

%t Select[Range[100], Sin[#] > 0 || Cos[#] > 0 &] (* A332484 *)

%t Select[Range[100], Sin[#] > 0 || Cos[#] < 0 &] (* A332485 *)

%t Select[Range[100], Sin[#] < 0 || Cos[#] > 0 &] (* A332486 *)

%t Select[Range[100], Sin[#] < 0 || Cos[#] < 0 &] (* A332487 *)

%Y Cf. A332480-A332483, A332484-A332486.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 14 2020