A095186 - OEIS

A095186

a(n) = least k such that k*n^(1/n) differs from an integer by at most 1/n.

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; text; internal format)

OFFSET

1,3

LINKS

Table of n, a(n) for n=1..79.

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

Sequence in context: A334233 A271058 A107320 * A265340 A373503 A356993

Adjacent sequences: A095183 A095184 A095185 * A095187 A095188 A095189

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