login
A246444
Nonnegative integers k satisfying sin(k) > sec(k).
7
2, 3, 4, 8, 9, 10, 15, 16, 17, 21, 22, 23, 27, 28, 29, 33, 34, 35, 36, 40, 41, 42, 46, 47, 48, 52, 53, 54, 59, 60, 61, 65, 66, 67, 71, 72, 73, 77, 78, 79, 80, 84, 85, 86, 90, 91, 92, 96, 97, 98, 103, 104, 105, 109, 110, 111, 115, 116, 117, 121, 122, 123, 124
OFFSET
1,1
LINKS
MATHEMATICA
z = 200;
Select[Range[0, z], Sin[#] > Sec[#] &] (* A246444 *)
Select[Range[0, z], Sin[#] < Sec[#] &] (* A131503 *)
PROG
(PARI) is(n) = cos(n) < 0; \\ Michel Marcus, Oct 15 2016
CROSSREFS
Cf. A131503 (complement).
Sequence in context: A032968 A079279 A364381 * A117847 A045577 A111020
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Aug 26 2014
STATUS
approved