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