How can I Insert this expression in mathematicaas shown in the photo?
f[j_] := Sum[2/(i - j), {i, Complement[Range[100], {j}]}]
It is work very well , thank you very much indeed
An alternative (Mathematica is so flexible):
f[j_] := Total[2/(Drop[Range[100], {j}] - j)]