OFFSET
1,1
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Tyler Busby, Table of n, a(n) for n = 1..148 (terms 1..123 from Hugo Pfoertner, terms 124..135 from Yurii Ivanov)
factordb, Status of 148^148+1 ... 167^167+1.
FORMULA
MATHEMATICA
Table[ FactorInteger[ n^n + 1, FactorComplete -> True ] [ [ -1, 1 ] ], {n, 1, 25} ]
PROG
(PARI) for(k=1, 24, my(x=factor(k^k+1), f=x[#x[, 1], 1]); print1(f, ", ")) \\ Hugo Pfoertner, Aug 23 2019
(Magma) [Max(PrimeDivisors(n^n+1)):n in [1..24]]; // Marius A. Burtea, Aug 24 2019
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
STATUS
approved