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
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