a <- 1:10000
b <- sqrt(a)
c <- b[1:10]
print(c)
d <- c(min(b), max(b))
print(d)