(* Iterating functions *)

f[x_]:=x^2+c

c=1;

x[0]=0;
Do[x[n]=f[x[n-1]]+c;Print[x[n]],{n,1,10}]

NestList[f,0,10]