login
A095185
a(n) = least k such that k*n^(1/2) differs from an integer by less than 1/n.
0
1, 1, 1, 1, 4, 2, 3, 6, 1, 6, 3, 2, 5, 4, 8, 1, 8, 4, 11, 17, 12, 13, 5, 10, 1, 10, 5, 24, 13, 21, 7, 3, 4, 6, 12, 1, 12, 6, 4, 37, 5, 25, 9, 30, 24, 23, 7, 14, 1, 14, 7, 19, 25, 23, 12, 29, 20, 13, 22, 4, 21, 8, 16, 1, 16, 8, 27, 65, 13, 30, 54, 68, 57, 5, 50, 39, 40, 6, 9, 18, 1, 18, 9, 6, 41
OFFSET
1,5
COMMENTS
a(n)=1 for n = 2, 3 & square numbers. - Robert G. Wilson v, Jun 09 2004
MATHEMATICA
a[n_] := Block[{k = 1}, While[n*Abs[k*Sqrt[n] - Round[k*Sqrt[n]]] >= 1, k++ ]; k]; Table[ a[n], {n, 85}] (* Robert G. Wilson v, Jun 09 2004 *)
CROSSREFS
Sequence in context: A243961 A098317 A371325 * A128009 A072425 A361747
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