A332480 - OEIS

%I #12 Apr 27 2020 10:52:56

%S 1,7,13,14,19,20,26,32,38,39,44,45,51,57,58,63,64,70,76,82,83,88,89,

%T 95,101,102,107,108,114,120,126,127,132,133,139,145,146,151,152,158,

%U 164,170,171,176,177,183,189,190,195,196,202,208,214,215,220,221,227

%N Numbers k such that sin(k) > 0 and cos(k) > 0.

%C The sequences A332480-A332483 partition the positive integers.

%C Subsequence of A327422, where sin(k)*cos(k)>0. - _R. J. Mathar_, Apr 27 2020

%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, A131503, A246442, A246443, A246450, A246451, A332481-A332487.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Apr 14 2020