OFFSET
1,1
MATHEMATICA
Do[i = 2; While[k = (i^n - 1)/n - n; !IntegerQ[k], i++ ]; Print[i], {n, 2, 81}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 03 2003
EXTENSIONS
Edited and extended by Robert G. Wilson v, May 11 2003
STATUS
approved