OFFSET
1,1
COMMENTS
a(n) <= {(n+1)^n - 1}/n.
FORMULA
a(n) = n*A076943(n) + 1.
MATHEMATICA
Do[k = 2; While[ !IntegerQ[(k^n - 1)/n], k++ ]; Print[k^n], {n, 1, 19}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 19 2002
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Oct 21 2002
STATUS
approved