実は である (グラフを考えると納得できるかも)。 そこで に対して を求めるときの初期値を としてみた。 幸いこれで動いてくれた。
Clear[lambda] lambda[n_]:=lambda[n]= If[n== 1, solnear3[2], solnear3[lambda[n - 1] + Pi]]