OFFSET
1,1
EXAMPLE
a(2) = 17. We have 17^2 = 289 and 2+8+9 >= 17. No number > 17 has this property.
MATHEMATICA
(* the constant 20 may need to be higher for larger n *) Table[Select[Range[20*n], Total[IntegerDigits[#^n]] >= # &][[-1]], {n, 100}] (* T. D. Noe, Oct 21 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
David W. Wilson, Mar 02 2003
EXTENSIONS
Definition corrected by Harvey P. Dale, Oct 21 2011
STATUS
approved