# Solving a nonlinear recurrence equation

How to solve the following nonlinear recurrence equation using RSolve?

$$a(n+1):=\frac{1-(1-a(n)^4)^{1/4}}{1+(1-a(n)^4)^{1/4}} , \quad a(0):=\sqrt{2}-1$$

I tried:

RSolve[{a[n + 1] == (1 - (1 - a[n]^4)^(1/4))/(1 + (1 - a[n]^4)^(1/4)),
a == Sqrt - 1}, a[n], n]


Then I tried Wolfram Alpha, but $a(3)$ and $a(4)$ equal zero!

WolframAlpha["a[n + 1] =(1 - (1 - a[n]^4)^(1/4))/(1 + (1 - \
a[n]^4)^(1/4)), a(0)=Sqrt(2)-1", {{"Values", 1}, "Content"}] • What makes you think there should be a closed-form solution? Oct 4 '16 at 21:40

 a := N[Sqrt - 1]
a[n_] := a[n] = (1 - (1 - a[n - 1]^4)^(1/4))/(1 + (1 - a[n - 1]^4)^(1/4))


The repetition of a[n] is for memorization.

• This just implements the recurrence; the OP seems to want the explicit solution. Oct 4 '16 at 11:28
• $a(n)=0$ for $n\geq3$, I tried a := N[Sqrt - 1, 200] but nothing change
– vito
Oct 4 '16 at 11:33
• In my computer with N[Sqrt - 1, 200], a= 0.00373489, a=2.43231*10^-11,a=0. Perhaps restart your kernel Oct 4 '16 at 11:38
• I have tried to change the precision of the machine a := SetPrecision[N[Sqrt - 1, 200], 20],a := SetPrecision[N[Sqrt - 1, 200], 20] it change nothing for a and a Oct 4 '16 at 11:52
• you can start with symbolic a then N[a,20] yields ~10^-44, a ~ 10^-175 is there a point to this? Oct 4 '16 at 14:09