二次非剩余列表

青青子衿

\begin{align*}
\begin{split}
x^2\not\equiv2\pmod{3}\\
\\
x^2\not\equiv2\pmod{4}\\
x^2\not\equiv3\pmod{4}\\
\\
x^2\not\equiv2\pmod{5}\\
x^2\not\equiv3\pmod{5}\\
\\
x^2\not\equiv2\pmod{6}\\
x^2\not\equiv5\pmod{6}\\
\\
x^2\not\equiv3\pmod{7}\\
x^2\not\equiv5\pmod{7}\\
x^2\not\equiv6\pmod{7}\\
\end{split}
&&
\begin{split}
x^2\not\equiv2\pmod{8}\\
x^2\not\equiv3\pmod{8}\\
x^2\not\equiv5\pmod{8}\\
x^2\not\equiv6\pmod{8}\\
x^2\not\equiv7\pmod{8}\\
\\
x^2\not\equiv2\pmod{9}\\
x^2\not\equiv3\pmod{9}\\
x^2\not\equiv5\pmod{9}\\
x^2\not\equiv6\pmod{9}\\
x^2\not\equiv8\pmod{9}\\
\\
x^2\not\equiv2\pmod{10}\\
x^2\not\equiv3\pmod{10}\\
x^2\not\equiv7\pmod{10}\\
x^2\not\equiv8\pmod{10}\\
\end{split}
\end{align*}
...

1. Table[Complement[Range[n - 1], Mod[Range[n/2]^2, n]],
2.    {n, 3, 20}] // Column

Copy the Code

...