|
%I #5 Apr 27 2020 10:59:20
%S 2,3,8,9,15,21,27,28,33,34,40,46,47,52,53,59,65,71,72,77,78,84,90,91,
%T 96,97,103,109,115,116,121,122,128,134,135,140,141,147,153,159,160,
%U 165,166,172,178,179,184,185,191,197,203,204,209,210,216,222,223,228
%N Numbers k such that sin(k) > 0 and cos(k) < 0.
%C The sequences A332480-A332483 partition the positive integers.
%t Select[Range[300], Sin[#] > 0 && Cos[#] > 0 &] (* A332480 *)
%t Select[Range[300], Sin[#] > 0 && Cos[#] < 0 &] (* A332481 *)
%t Select[Range[300], Sin[#] < 0 && Cos[#] > 0 &] (* A332482 *)
%t Select[Range[300], Sin[#] < 0 && Cos[#] < 0 &] (* A332483 *)
%Y Cf. A070752, A246444, A332480, A332482, A332483. Subsequence of A327423.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 14 2020
|
