N[NestList[{(#[[1]]+#[[2]])/2, Sqrt[#[[1]] #[[2]]]}&, {1,1/5},5],25]