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

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

Cf. A065624.

Sequence in context: A100045 A143844 A186759 * A178103 A147309 A147308

Adjacent sequences: A065620 A065621 A065622 * A065624 A065625 A065626

Keyword

nonn

Author

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

Status

approved