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 A359950 #32 Mar 13 2023 02:54:32 %S A359950 2,7,29,601,29,116929,11887,4778489,82207,296987,2767,464089,36922117, %T A359950 71722471217,10219277051,9406703479,2040247819,122450719,1265072927, %U A359950 18353142818474353,21514105057,46999724987,29693667067,5684341885088084044195811037649,692132186353,12114317049616531 %N A359950 a(n) is the greatest prime factor of n^n - n!. %H A359950 Amiram Eldar, <a href="/A359950/b359950.txt">Table of n, a(n) for n = 2..106</a> %F A359950 a(n) = A006530(A036679(n)) = A006530(n*A126130(n-1)). %e A359950 a(5) = greatest prime factor of 5^5 - 5! = greatest prime factor of 3125 - 120 = greatest prime factor of 3005 = 3005/5 = 601. %t A359950 Table[Max[First/@FactorInteger[n^n-n!]],{n,2,27}] (* _Stefano Spezia_, Jan 22 2023 *) %o A359950 (PARI) a(n) = vecmax(factor(n^n - n!)[,1]); \\ _Michel Marcus_, Jan 22 2023 %Y A359950 Cf. A006530, A020639, A036679, A126130. %K A359950 nonn %O A359950 2,1 %A A359950 _Sebastian F. Orellana_, Jan 19 2023 %E A359950 More terms from _Michel Marcus_, Jan 22 2023