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 A341844 #15 Jun 05 2021 10:55:01 %S A341844 2,4,3,6,3,5,2,4,3,3,4,14,2,7,5,18,3,20,2,8,3,7,10,6,3,13,9,9,6,29,2, %T A341844 12,7,12,5,38,2,19,9,13,3,41,6,11,3,15,22,8,2,25,4,39,7,12,2,13,3,60, %U A341844 28,62,2,31,9,10,3,5,2,24,11,24,4,74,3,37,20,25,3,80,5,10,4,9,40,18,2,37,29,16,3,15,2 %N A341844 Least k > 1 such that (n+k^n)/(n+k) is an integer. %H A341844 Seiichi Manyama, <a href="/A341844/b341844.txt">Table of n, a(n) for n = 1..10000</a> %t A341844 a[n_] := Module[{k = 2}, While[! Divisible[k^n + n, n + k], k++]; k]; Array[a, 100] (* _Amiram Eldar_, Jun 04 2021 *) %o A341844 (PARI) a(n) = my(k=2); while((n+k^n)%(n+k)!=0, k++); k; %Y A341844 Cf. A242801, A242899, A341760, A341889, A341890. %K A341844 nonn %O A341844 1,1 %A A341844 _Seiichi Manyama_, Jun 04 2021