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 A007652 M0632 #61 Dec 12 2024 09:29:00 %S A007652 2,3,5,7,1,3,7,9,3,9,1,7,1,3,7,3,9,1,7,1,3,9,3,9,7,1,3,7,9,3,7,1,7,9, %T A007652 9,1,7,3,7,3,9,1,1,3,7,9,1,3,7,9,3,9,1,1,7,3,9,1,7,1,3,3,7,1,3,7,1,7, %U A007652 7,9,3,9,7,3,9,3,9,7,1,9,9,1,1,3,9,3,9,7,1,3,7,9,7,1,9,3,9,1,3,1,7,7,3,9,1 %N A007652 Final digit of prime(n). %C A007652 Primes modulo 10. %D A007652 Milton Abramowitz and Irene A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 870. %D A007652 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %H A007652 Nathaniel Johnston, <a href="/A007652/b007652.txt">Table of n, a(n) for n = 1..10000</a> %H A007652 Milton Abramowitz and Irene A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy]. %H A007652 Alberto Fraile et al., <a href="https://doi.org/10.1103/PhysRevE.104.054114">Prime numbers and random walks in a square grid</a>, Phys. Rev. E, 104(5) (2021), 054114. %H A007652 Evelyn Lamb, <a href="https://www.scientificamerican.com/article/peculiar-pattern-found-in-random-prime-numbers/">"Peculiar Pattern Found in 'Random' Prime Numbers"</a>, Nature, March 14, 2016, republished by Scientific American. %H A007652 Robert J. Lemke Oliver and Kannan Soundararajan, <a href="https://arxiv.org/abs/1603.03720">Unexpected biases in the distribution of consecutive primes</a>, arXiv preprint arXiv:1603.03720 [math.NT], 2016. %H A007652 <a href="/index/Fi#final">Index entries for sequences related to final digits of numbers</a>. %F A007652 a(n) = A010879(A000040(n)). - _Michel Marcus_, May 06 2014 %F A007652 Sum_k={1..n} a(k) ~ 5*n. - _Amiram Eldar_, Dec 11 2024 %p A007652 seq(ithprime(n) mod 10, n=1..105); # _Nathaniel Johnston_, Jun 29 2011 %t A007652 Table[Mod[Prime[n], 10], {n, 120}] (* _Ray Chandler_, Oct 01 2005 *) %t A007652 Mod[Prime[Range[100]], 10] (* _Vincenzo Librandi_, May 06 2014 *) %o A007652 (Magma) [Intseq(p)[1]: p in PrimesUpTo(600)]; // _Bruno Berselli_, Feb 14 2013 %o A007652 (Magma) [p mod 10: p in PrimesUpTo(500)]; // _Vincenzo Librandi_, May 06 2014 %o A007652 (PARI) a(n)=prime(n)%10 \\ _Charles R Greathouse IV_, Oct 13 2016 %o A007652 (PARI) primes(100)%10 \\ _Charles R Greathouse IV_, Oct 13 2016 %Y A007652 Cf. A000040, A010879, A110923, A039701-A039706, A038194, A039709-A039715, A290450. %K A007652 nonn,base,easy %O A007652 1,1 %A A007652 _N. J. A. Sloane_, _Simon Plouffe_ %E A007652 Extended by _Ray Chandler_, Oct 01 2005