How can I check if a list, for example ,{{0,0},{0,0}},{7,3}} matches another list that contains {{0,0},{0,0}},{7,3}} as in the program lines below. How can I see if the list ( P6= List [p2,gg5] matches q55= List[q5]? I have tried freeQ , memberQ, find, count, substeQ but none of them seem to work...but if I copy the list {{0,0},{0,0}},{7,3}} and use with ctrl+f over the results of the program I get it right...
sq=Table[j,{j,100000}]
sq11=Table[j,{j,1000,2000}]
x=Select[sq,OddQ,(900)]
n1=Select[sq,CompositeQ,(400)]
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]
Select[n,PrimeQ,(200)]
Length[%]
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]
q55=List[q5]
q6=Partition[q5,2]
n=5210644015679228794060694325390955853335898483908056458352183851018372555735221
z=(n-1)^2*(n+1)^3
g=Mod[z,3]
g1=Mod[z,5]
g2=Mod[z,7]
g3=Mod[z,11]
Select[n,PrimeQ,(200)]
Length[%]
z1=(n-1)^2*(n+5)^3
g4=Mod[z1,3]
g5=Mod[z1,11]
gg1=List[g,g4]
gg=List[g1,g2]
gg2=List[g1,g2]
gg3=List[g3,g5]
gg4=List[g,g4]
gg5=List[g3,g5]
p=List[gg1,gg2]
p1=Partition[p,2]
p2=List[gg,gg1]
p3=Partition [p2,2]
p4=List[gg3]
p6=List [p2,gg5]
