A332481 Numbers k such that sin(k) > 0 and cos(k) < 0.

2, 3, 8, 9, 15, 21, 27, 28, 33, 34, 40, 46, 47, 52, 53, 59, 65, 71, 72, 77, 78, 84, 90, 91, 96, 97, 103, 109, 115, 116, 121, 122, 128, 134, 135, 140, 141, 147, 153, 159, 160, 165, 166, 172, 178, 179, 184, 185, 191, 197, 203, 204, 209, 210, 216, 222, 223, 228

Offset

1,1

Comments

The sequences A332480-A332483 partition the positive integers.

Links

Table of n, a(n) for n=1..58.

Mathematica

Select[Range[300], Sin[#] > 0 && Cos[#] > 0 &] (* A332480 *)
Select[Range[300], Sin[#] > 0 && Cos[#] < 0 &] (* A332481 *)
Select[Range[300], Sin[#] < 0 && Cos[#] > 0 &] (* A332482 *)
Select[Range[300], Sin[#] < 0 && Cos[#] < 0 &] (* A332483 *)

Crossrefs

Cf. A070752, A246444, A332480, A332482, A332483. Subsequence of A327423.

Sequence in context: A101471 A137471 A051209 * A331821 A093765 A260020

Adjacent sequences: A332478 A332479 A332480 * A332482 A332483 A332484

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2020

Status

approved