|
| |
|
|
A095186
|
|
a(n) = least k such that k*n^(1/n) differs from an integer by at most 1/n.
|
|
0
| |
|
|
1, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 9, 5, 5, 5, 11, 6, 6, 6, 13, 13, 7, 7, 7, 15, 23, 8, 8, 25, 17, 9, 9, 9, 28, 19, 10, 10, 10, 31, 21, 11, 11, 11, 34, 23, 35, 12, 12, 37, 25, 38, 13, 13, 13, 27, 27, 14, 14, 14, 43, 29, 44, 15, 15, 46, 31, 47, 16, 16, 16, 49, 33, 50, 17, 17, 69, 35, 35
(list; graph; refs; listen; history; internal format)
|
|
|
|
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}] (from Robert G. Wilson v Jun 09 2004)
|
|
|
CROSSREFS
| Sequence in context: A103128 A156080 A107320 * A189631 A101402 A156251
Adjacent sequences: A095183 A095184 A095185 * A095187 A095188 A095189
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 02 2004
|
|
|
EXTENSIONS
| More terms from Don Reble (djr(AT)nk.ca), Jun 04 2004
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2004
|
| |
|
|
