OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..116
MATHEMATICA
Table[f = FactorInteger[n^n + n]; f[[Length[f]]][[1]], {n, 1, 25}] (* Vaclav Kotesovec, Apr 26 2024 *)
PROG
(Python)
from sympy import primefactors
def A372228(n): return max(max(primefactors(n), default=1), max(primefactors(n**(n-1)+1))) # Chai Wah Wu, Apr 27 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Tyler Busby, Apr 23 2024
STATUS
approved