OFFSET
1,1
MAPLE
lprint(round(evalf(1000*sqrt(n))));
MATHEMATICA
Table[Floor[1000*Sqrt[n]+1/2], {n, 40}] (* Harvey P. Dale, Apr 22 2011 *)
PROG
(Python)
from math import isqrt
def A027662(n): return (m:=isqrt(k:=n*10**6))+int((k-m*(m+1)<<2)>=1) # Chai Wah Wu, Jul 30 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved