>>900
お返事ありがとうございます。
>ではだめなの？
すいません。駄目なのです。
質問の本質は変更しませんが、
複雑な式は、分かりにくいだけなので止めて、
式を下記に変更したいと思います。
下記が、“０”に一番近づくのは
“７”付近なのですが、
このように数値計算をして求めるのではなく
式（たぶん微分方程式）を
解いて、下記と同様な解を
得るには、どのような式（微分方程式）
を作ればよいでしょうか？

a2=.;
For[n=1,n<2*10^1,n++,
If[n==1,s1=0];
If[n>1,s1=n/y];
y=3/2*a2^2+a2^3;
a2=2-s1;
f=5;
If[y-f<0,Print["n=",n]];
If[y-f<0,Print["y=",N[y]]];
If[y-f<0,Break[]];
];

もし、正しい式が得られましたら、ｆの値を
変更しても、正しい解が得られるはずです。