A246441 - OEIS

%I #14 Jan 21 2016 14:24:27

%S 0,4,5,6,10,11,12,13,17,18,19,23,24,25,29,30,31,36,37,38,42,43,44,48,

%T 49,50,54,55,56,57,61,62,63,67,68,69,73,74,75,80,81,82,86,87,88,92,93,

%U 94,98,99,100,101,105,106,107,111,112,113,117,118,119,124

%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="/A246441/b246441.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),[0..200]) \\ _Edward Jiang_, Sep 01 2014

%Y Cf. A246440.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Aug 26 2014