OFFSET
2,1
LINKS
Daniel Suteu and Amiram Eldar, Table of n, a(n) for n = 2..86 (terms 2..62 from Daniel Suteu)
EXAMPLE
A007781(14) = 10809131718965763 = 3 * 61^2 * 968299894201, therefore a(14) = 968299894201.
MAPLE
a:= n-> max(map(i-> i[1], ifactors(n^n-(n-1)^(n-1))[2])):
seq(a(n), n=2..23); # Alois P. Heinz, Mar 10 2019
MATHEMATICA
a[n_] := FactorInteger[n^n - (n-1)^(n-1)][[-1, 1]]; Array[a, 20, 2] (* Amiram Eldar, Feb 06 2020 *)
PROG
(PARI) a(n) = vecmax(factor(n^n-(n-1)^(n-1))[, 1]); \\ Daniel Suteu, Mar 10 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 11 2002
EXTENSIONS
a(18)-a(22) from Daniel Starodubtsev, Mar 10 2019
STATUS
approved