A095185 a(n) = least k such that k*n^(1/2) differs from an integer by less than 1/n.

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

Links

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

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

Adjacent sequences: A095182 A095183 A095184 * A095186 A095187 A095188

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