OFFSET
1,1
MAPLE
lprint(round(evalf(100000*sqrt(n))));
MATHEMATICA
Table[Floor[FromDigits[RealDigits[Sqrt[n], 10, 7][[1]]]/10+1/2], {n, 30}] (* Harvey P. Dale, Jan 31 2012 *)
PROG
(Python)
from math import isqrt
def A027663(n): return (m:=isqrt(k:=n*10**10))+int((k-m*(m+1)<<2)>=1) # Chai Wah Wu, Jul 30 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved