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 A341890 #16 Jun 05 2021 10:54:14
%S A341890 3,2,3,4,2,3,3,2,3,5,9,4,11,14,3,16,6,3,5,5,3,10,5,3,5,6,3,4,4,4,7,18,
%T A341890 3,17,5,9,7,26,3,10,7,6,7,20,5,7,23,6,7,8,3,12,13,10,5,8,13,3,11,3,16,
%U A341890 6,3,29,5,6,21,6,3,5,9,6,5,17,3,19,7,12,7,20,3,5,19,12,15,42,3,13,4,6,7,14,15,34,5,12,15,14,3
%N A341890 Least k > 1 such that (n^n+k^k)/(n+k) is an integer.
%H A341890 Seiichi Manyama, <a href="/A341890/b341890.txt">Table of n, a(n) for n = 1..10000</a>
%F A341890 a(n) <= n for all n > 1.
%t A341890 a[n_] := Module[{k = 2}, While[! Divisible[n^n + k^k, n + k], k++]; k]; Array[a, 100] (* _Amiram Eldar_, Jun 04 2021 *)
%o A341890 (PARI) a(n) = my(k=2); while((n^n+k^k)%(n+k)!=0, k++); k;
%Y A341890 Cf. A242801, A242899, A341760, A341844, A341889.
%K A341890 nonn,look
%O A341890 1,1
%A A341890 _Seiichi Manyama_, Jun 04 2021