RSolve[(a[n]-a[n+1])/(1+a[n]a[n+1])==1/n^2,a[n],n]