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 A284051 #21 Apr 28 2017 12:48:37
%S A284051 0,0,1,2,2,3,1,2,3,2,3,2,1,2,1,2,2,2,3,5,3,2,3,4,3,4,3,4,8,3,1,2,3,2,
%T A284051 3,6,2,2,3,1,3,4,3,2,3,2,3,3,3,4,6,7,3,4,4,4,5,4,5,4,4,5,1,2,5,2,3,5,
%U A284051 4,2,3,6,3,4,6,7,7,2,3,2,3,4,8,3,3,4,7
%N A284051 a(n) = A240751(n) mod n, where A240751(n) = the smallest k such that in the prime power factorization of k! there exists at least one exponent n.
%H A284051 Robert G. Wilson v, <a href="/A284051/b284051.txt">Table of n, a(n) for n = 1..10000</a>
%F A284051 A240751(n) = n*A284050(n) + a(n). - _Antti Karttunen_, Mar 22 2017
%e A284051 A240751(5) = 12 so a(5) = 12 mod 5 == 2.
%t A284051 Table[k = 2; While[! MemberQ[FactorInteger[k!][[All, -1]], n], k++]; Mod[k, n], {n, 87}] (* _Michael De Vlieger_, Mar 24 2017 *)
%o A284051 (PARI) a(n) = A240751(n)%n \\ (For computation of A240751(n), see A240751)
%Y A284051 Cf. A240751, A284050.
%K A284051 nonn,easy
%O A284051 1,4
%A A284051 _David A. Corneth_, Mar 19 2017