|
%I #15 Jan 21 2016 14:24:26
%S 1,2,3,7,8,9,14,15,16,20,21,22,26,27,28,32,33,34,35,39,40,41,45,46,47,
%T 51,52,53,58,59,60,64,65,66,70,71,72,76,77,78,79,83,84,85,89,90,91,95,
%U 96,97,102,103,104,108,109,110,114,115,116,120,121,122,123
%N Nonnegative integers k satisfying cos(k) > sec(k+1).
%C k is taken in radians.
%C Also, the nonnegative integers k satisfying sin(k) > sec(k+1).
%H Clark Kimberling, <a href="/A246440/b246440.txt">Table of n, a(n) for n = 1..1000</a>
%t z = 200;
%t Select[Range[0, z], Cos[#] > Sec[# + 1] &] (* A246440 *)
%t Select[Range[0, z], Cos[#] < Sec[# + 1] &] (* A246441 *)
%o (PARI) select(n -> cos(n)>1/cos(n+1),[1..200]) \\ _Edward Jiang_, Sep 01 2014
%Y Cf. A246441 (complement of A246440).
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Aug 26 2014
|
