This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A000493 #27 Sep 08 2022 08:44:28 %S A000493 0,0,0,0,-1,-1,-1,0,0,0,-1,-1,-1,0,0,0,-1,-1,-1,0,0,0,-1,-1,-1,-1,0,0, %T A000493 0,-1,-1,-1,0,0,0,-1,-1,-1,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,-1, %U A000493 -1,-1,0,0,0,-1,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,-1,0,0,0,-1,-1,-1,0,0 %N A000493 a(n) = floor(sin(n)). %H A000493 Robert Israel, <a href="/A000493/b000493.txt">Table of n, a(n) for n = 0..10000</a> %F A000493 a(n) = -(A032615(n) mod 2). - _Robert Israel_, Jun 14 2015 %p A000493 f := n->floor(evalf(sin(n))); %t A000493 f[ n_ ] := Floor[ N[ Sin[ n ] ] ] %t A000493 Floor[Sin[Range[0,90]]] (* _Harvey P. Dale_, Dec 04 2012 *) %o A000493 (Magma) [Floor(Sin(n)): n in [0..100]]; // _Vincenzo Librandi_, Jun 15 2015 %Y A000493 Cf. A032615, A126564 (even bisection), A000480 (floor cos(n)). %K A000493 sign,easy %O A000493 0,1 %A A000493 _N. J. A. Sloane_