|
%I #11 Oct 15 2016 16:17:27
%S 2,3,4,8,9,10,15,16,17,21,22,23,27,28,29,33,34,35,36,40,41,42,46,47,
%T 48,52,53,54,59,60,61,65,66,67,71,72,73,77,78,79,80,84,85,86,90,91,92,
%U 96,97,98,103,104,105,109,110,111,115,116,117,121,122,123,124
%N Nonnegative integers k satisfying sin(k) > sec(k).
%H Clark Kimberling, <a href="/A246444/b246444.txt">Table of n, a(n) for n = 1..1000</a>
%t z = 200;
%t Select[Range[0, z], Sin[#] > Sec[#] &] (* A246444 *)
%t Select[Range[0, z], Sin[#] < Sec[#] &] (* A131503 *)
%o (PARI) is(n) = cos(n) < 0; \\ _Michel Marcus_, Oct 15 2016
%Y Cf. A131503 (complement).
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Aug 26 2014
|
