|
%I #4 Apr 28 2020 00:16:36
%S 1,2,3,5,6,7,8,9,11,12,13,14,15,18,19,20,21,24,25,26,27,28,30,31,32,
%T 33,34,37,38,39,40,43,44,45,46,47,49,50,51,52,53,55,56,57,58,59,62,63,
%U 64,65,68,69,70,71,72,74,75,76,77,78,81,82,83,84,87,88,89
%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, A332485, A332486, A332487.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 14 2020
|
