%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_