Hi there to everyone, if someone could help me ... in the program lines below how can i get a table of answers to the formula x1, knowing that i only want results that gives as integerpart =0 ( zero)?

sq=Table[j,{j,100000}];
sq11=Table[j,{j,1000,2000}];
x=Select[sq,OddQ,(2002)];
n=Select[sq,PrimeQ,(2002)];
n1=17389;
r=0;
g=0;
x1=(((((n+r)*x)+n+r))/(n+r))/(((((n)*(x+r)+(x+r))))/(n1))
ClearAll@f
f[n_,r_,x_] := Module[{x1,b},
  x1=(((((n+r)*x)+n+r))/(n+r))/(((((n)*(x+r)+(x+r))))/(n1));
b=IntegerPart[x1]]
Table[If[MemberQ[g, f[n]], {n, f[n]}, Nothing], {n, 1, 20000}]