s[0] = 1; s[n_]:= (s[n-1] + 10/s[n-1])/2;
Do[Print[N[s[n]]],{n,0,8}]