Do the following:
Create a vector of 23 equally spaced numbers that starts at 1 and ends at 511.
Find the 13th element in the vector from Part 1.
Calculate the base 2 logarithm of the result from Part 2.
Calculate the square root of the result from Part 3.
What is the answer to part 4?
# part 1 p1 <- seq(1,511,length.out=23) # part 2 p2 <- p1 # part 3 p3 <- log(p2, base=2) # part 4 p4 <- sqrt(p3) # answer p4
##  2.850449