%I #10 Jun 15 2018 02:52:08

%S 1,1,0,1,4,0,1,5,0,1,2,0,1,1,0,4,1,0,5,1,0,1,1,1,0,1,3,0,1,6,0,1,2,0,

%T 1,1,0,4,1,0,6,1,0,1,1,1,0,1,3,0,1,7,0,1,2,0,1,1,0,4,1,0,7,1,0,1,1,1,

%U 0,1,3,0,1,8,0,1,2,0,1,1,0,3,1,0,9,1,0,1,1,1,0,1,2,0,1,11,0,1,2,0,1,1,0,3

%N a(n) = floor(abs(cos(n)/cos(2n))).

%H Harry J. Smith, <a href="/A065623/b065623.txt">Table of n, a(n) for n = 0..1000</a>

%e a(10) = floor(abs(cos(10)/cos(20))) = floor(abs(-2.05613)) = floor(2.056) = 2.

%t Table[Floor[Abs[Cos[n]/Cos[2n]]],{n,0,110}] (* _Harvey P. Dale_, Oct 11 2012 *)

%o (PARI) { for (n=0, 1000, a=floor(abs(cos(n)/cos(2*n))); write("b065623.txt", n, " ", a) ) } \\ _Harry J. Smith_, Oct 24 2009

%Y Cf. A065624.

%K nonn

%O 0,5

%A Jonathan Ayres (jonathan.ayres(AT)btinternet.com), Nov 07 2001