F[t_]:= (1800t^2 - 709)/(100(36t-23));
y[0]=0.5;y[k_]:= F[y[k-1]];
Do[Print[y[k]],{k,0,8}]
Simplify[Solve[F[t]==t]]