Foldlist [ #1 - #1/#2 & , 1 , prime[range[100]] ]