Can anyone tell me how to get a result according to the q6 list of pairs?
sq=Table[j,{j,100000}];
sq11=Table[j,{j,1000,2000}];
x=Select[sq,OddQ,(200)];
n=Select[sq,PrimeQ,(200)];
z=(n-1)^2*(n+1)^3;
g=Mod[z,3];
g2=Mod[z,5];
g3=Mod[z,7];
g4=Mod[z,11];
z1=(n-1)^2*(n+5)^3;
g1=Mod[z1,3];
g5=Mod[z1,11];
q=Riffle[g2,g3];
q1=Partition[q,2];
p=Riffle[g,g1];
q2=Partition[p,2];
r=Riffle[q1,q2];
h=Partition[r,2];
q3=Riffle[g4,g5];
q4=Partition[q3,2];
q5=Riffle[h,q4];
q6=Partition[q5,2]
ClearAll@f
f[n_,g2_,g3_g1 _,g_,g4_,g5_,q1_,p_,q_,q2_,r_,q3_,h_,q4_,q5_,q6_] := Module[{z,z1},
z= (n-1)^2*(n+1)^3;
g=Mod[z,3];
g2=Mod[z,5];
g3=Mod[z,7];
g4=Mod[z,11];
z1=(n-1)^2*(n+5)^3;
g1=Mod[z1,3];
g5=Mod[z1,11];
q=Riffle[g2,g3];
q1=Partition[q,2];
p=Riffle[g,g1];
q2=Partition[p,2];
r=Riffle[q1,q2];
h=Partition[r,2];
q3=Riffle[g4,g5];
q4=Partition[q3,2];
q5=Riffle[h,q4];
q6=Partition[q5,2]]
Table[If[MemberQ[q6, f[n]], {n, f[n]}, Nothing], {n, 1, 9961}]
Table[If[MemberQ[q6, f[n]], {n,(n-1)^2*(n+1)^3, f[n]}, Nothing], {n, 1, 9961}]
Table[If[MemberQ[q6, f[n]], {n,PrimeQ[(((n-1)^2*(n+1)^3)/7)+g3], f[n]}, Nothing], {n, 1, 9961}]