OFFSET
3,1
LINKS
Daniel Suteu and Harvey P. Dale, Table of n, a(n) for n = 3..72 (terms 3..52 from Harvey P. Dale)
MAPLE
MATHEMATICA
Table[With[{s=n^Range[0, n]}, FactorInteger[Last[s]-Total[Most[s]]][[-1, 1]]], {n, 3, 20}] (* Harvey P. Dale, Feb 02 2015 *)
PROG
(PARI) a(n) = if(n==0, return(1)); vecmax(factor(n^n - (n^n-1)/(n-1))[, 1]); \\ Daniel Suteu, Jun 09 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 12 2011
EXTENSIONS
More terms from Harvey P. Dale, Feb 02 2015
STATUS
approved