A065623 - OEIS

A065623

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

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, 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, 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

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,5

LINKS

Harry J. Smith, Table of n, a(n) for n = 0..1000

EXAMPLE

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

MATHEMATICA

Table[Floor[Abs[Cos[n]/Cos[2n]]], {n, 0, 110}] (* Harvey P. Dale, Oct 11 2012 *)

PROG

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

CROSSREFS