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