login
a(n) = round(cos(n)).
7

%I #20 Aug 28 2016 18:23:32

%S 1,1,0,-1,-1,0,1,1,0,-1,-1,0,1,1,0,-1,-1,0,1,1,0,-1,-1,-1,0,1,1,0,-1,

%T -1,0,1,1,0,-1,-1,0,1,1,0,-1,-1,0,1,1,1,0,-1,-1,0,1,1,0,-1,-1,0,1,1,0,

%U -1,-1,0,1,1,0,-1,-1,-1,0,1,1,0,-1,-1,0,1,1,0,-1,-1,0,1,1,0

%N a(n) = round(cos(n)).

%H T. D. Noe, <a href="/A000484/b000484.txt">Table of n, a(n) for n = 0..1000</a>

%p f := n->round(evalf(cos(n)));

%t Array[ Round[ Cos[ # ] // N ]&, 90, 0 ]

%K sign,easy

%O 0,1

%A _N. J. A. Sloane_