In Mathematica Program How I can do loop Beside of writing Find Root three time ,,(This was transcendental equation at finite well potential In Physics)

In[83]:= Ze = 8.0; In[13]:= f1[2] hoft3= F2[2] = sqrt {f}) * - 2]; In[24]:= f[Z] = Tan[Z]; In[80]:= Plot[{f1[2], f2[Z] }, {2, 0.0, 31} , PlotRange + {0.0, 3A), PlotLegends + "Expressions"] Out[001- - f1(2) f2(2) In[57]:= FindRoot[Tan[Z] == f1[Z], {Z, 1/2}] Out[57)= (Z - 1.5708 In[59] = FindRoot [Tan[2] == f1[2], {2, 1/2, 31/2}] Out[59)= {Z 4.71392 In[58]:= FindRoot (Tan[Z] == f1[Z], {Z, 37/2, 57/2}] Out[58]= (Z 7.85628 In[62]:= NSolve[f1[2] = Tan[2] &&0.0