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

1, 7, 13, 14, 19, 20, 26, 32, 38, 39, 44, 45, 51, 57, 58, 63, 64, 70, 76, 82, 83, 88, 89, 95, 101, 102, 107, 108, 114, 120, 126, 127, 132, 133, 139, 145, 146, 151, 152, 158, 164, 170, 171, 176, 177, 183, 189, 190, 195, 196, 202, 208, 214, 215, 220, 221, 227

Offset

1,2

Comments

The sequences A332480-A332483 partition the positive integers.

Subsequence of A327422, where sin(k)*cos(k)>0. - R. J. Mathar, Apr 27 2020

Links

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

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

Sequence in context: A363491 A342581 A353443 * A233593 A013651 A050931

Adjacent sequences: A332477 A332478 A332479 * A332481 A332482 A332483

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2020

Status

approved