(* Ne atom nach Kimball, Aussen-sp-Kugeln 10.12.2011 *)
Clear[k0,k2,sig0,sig2,c,z,P,R];
c = {k0 -> 1.0, k2 -> 1.0, sig0 -> 0.4, sig2 -> 0.4};

T = 2.25*k0/P^2+4.5*2.0*k2/R^2 /. c;
ad = 8./3.; 
Vee=3.0*sig0/P+4.0*3.0*sig2/R+16/(P+R)+24/((P+R)*Sqrt[ad]) /. c;
Vne=-3.0*z/P-8*z/(P+R);

func = T + Vee + Vne;

t = Table[FindMinimum[func, {P,0.14}, {R,0.65}], {z,10,26}]

Table[N[Vne /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[Vee /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[-(Vee+Vne)/T /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[R*4^(1/3) /. c /. t[[{z-9},2]],10], {z,10,26}]
Table[N[(R*4^(1/3))/(P+R)/.c/.t[[{z-9},2]],10],{z,10,26}]