[go: up one dir, main page]

login
A065623
a(n) = floor(abs(cos(n)/cos(2n))).
2
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
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
KEYWORD
nonn
AUTHOR
Jonathan Ayres (jonathan.ayres(AT)btinternet.com), Nov 07 2001
STATUS
approved