|
%I #14 Aug 28 2016 18:23:32
%S 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,1,1,0,
%T -1,-1,0,1,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,
%U 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,1,0,-1,-1,0,1,1,0,-1
%N Nearest integer to sin(n).
%H T. D. Noe, <a href="/A000494/b000494.txt">Table of n, a(n) for n = 0..1000</a>
%p f := n->round(evalf(sin(n)));
%t Array[ Round[ Sin[ # ] // N ]&, 90, 0 ]
%K sign,easy,nice
%O 0,1
%A _N. J. A. Sloane_
|
