e=0;
x=Table[i,{i,-5,5,0.1}];
g[i_]:=g[i]=x[[i]]^2-2*e;
y[i_]:=y[i]= (2 y[i - 1] - y[i - 2] + 5g[i - 1]y[i - 1] + g[i - 2]y[i - 2])/(1 - g[i]);
y[0]=0;
y[1]=0.001;