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 A000503 #102 Aug 14 2022 17:01:54
%S A000503 0,1,-3,-1,1,-4,-1,0,-7,-1,0,-226,-1,0,7,-1,0,3,-2,0,2,-2,0,1,-3,-1,1,
%T A000503 -4,-1,0,-7,-1,0,-76,-1,0,7,-1,0,3,-2,0,2,-2,0,1,-3,-1,1,-4,-1,0,-7,
%U A000503 -1,0,-46,-1,0,8,-1,0,3,-2,0,2,-2,0,1,-3,-1,1,-4,-1,0,-6,-1,0,-33,-1,0,9,-1,0,3,-2,0,2,-2,0,1,-2,-1,1,-3,-1,0,-6,-1,0,-26
%N A000503 a(n) = floor(tan(n)).
%C A000503 Every integer appears infinitely often. - _Charles R Greathouse IV_, Aug 06 2012
%C A000503 Does not satisfy Benford's law [Whyman et al., 2016]. - _N. J. A. Sloane_, Feb 12 2017
%H A000503 T. D. Noe, <a href="/A000503/b000503.txt">Table of n, a(n) for n = 0..1000</a>
%H A000503 David P. Bellamy, Jeffrey C. Lagarias, Felix Lazebnik, <a href="http://math.udel.edu/~lazebnik/papers/tan_n.pdf">Proposed Problem: Large Values of Tan n</a>
%H A000503 David P. Bellamy, Jeffrey C. Lagarias, Felix Lazebnik and Stephen M. Gagola, Jr., <a href="http://www.jstor.org/stable/2589040">Large Values of Tangent: 10656</a>, The American Mathematical Monthly, Vol. 106, No. 8 (Oct., 1999), pp. 782-784.
%H A000503 Daniel Forgues and Jon E. Schoenfield, <a href="/A000503/a000503_1.txt">Discussion of A000503</a>
%H A000503 G. Whyman, N. Ohtori, E. Shulzinger, Ed. Bormashenko, <a href="https://doi.org/10.1016/j.physa.2016.06.054">Revisiting the Benford law: When the Benford-like distribution of leading digits in sets of numerical data is expectable?</a>, Physica A: Statistical Mechanics and its Applications, 461 (2016), 595-601.
%H A000503 <a href="/index/Be#Benford">Index entries for sequences related to Benford's law</a>
%p A000503 f := n->floor(evalf(tan(n)));
%t A000503 Table[Floor[Tan[n]], {n, 0, 100}] (* _Stefan Steinerberger_, Apr 09 2006 *)
%o A000503 (PARI) a(n)=tan(n)\1 \\ _Charles R Greathouse IV_, Sep 04 2014
%o A000503 (Magma) [Floor(Tan(n)): n in [0..80]]; // _Vincenzo Librandi_, Jun 13 2015
%Y A000503 Cf. A005657, A000493, A000480, A000494, A000484, A088306, A195911, A195910, A037448, A258024.
%K A000503 sign,easy,nice
%O A000503 0,3
%A A000503 _N. J. A. Sloane_
%E A000503 More terms from _Stefan Steinerberger_, Apr 09 2006