OFFSET
1,3
MATHEMATICA
a[n_] := Block[{k = 1}, While[n*Abs[k*n^(1/n) - Round[k*n^(1/n)]] > 1, k++ ]; k]; Table[ a[n], {n, 80}] (* Robert G. Wilson v, Jun 09 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 02 2004
EXTENSIONS
More terms from Don Reble, Jun 04 2004
More terms from Robert G. Wilson v, Jun 09 2004
STATUS
approved