フェルマーの小定理 - Wikipedia
n |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
n2 |
0 |
1 |
4 |
9 |
5 |
3 |
3 |
5 |
9 |
4 |
1 |
n3 |
0 |
1 |
8 |
5 |
9 |
4 |
7 |
2 |
6 |
3 |
10 |
n4 |
0 |
1 |
5 |
4 |
3 |
9 |
9 |
3 |
4 |
5 |
1 |
n5 |
0 |
1 |
10 |
1 |
1 |
1 |
10 |
10 |
10 |
1 |
10 |
n6 |
0 |
1 |
9 |
3 |
4 |
5 |
5 |
4 |
3 |
9 |
1 |
n7 |
0 |
1 |
7 |
9 |
5 |
3 |
8 |
6 |
2 |
4 |
10 |
n8 |
0 |
1 |
3 |
5 |
9 |
4 |
4 |
9 |
5 |
3 |
1 |
n9 |
0 |
1 |
6 |
4 |
3 |
9 |
2 |
8 |
7 |
5 |
10 |
n10 |
0 |
1 |
1 |
1 |
1 |
1 |
1 |
1 |
1 |
1 |
1 |
n11 |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
Prelude> mapM_ print
$ (
\k -> (
\(d,nx,px) -> map (
\n -> "n^" ++ show n ++ " " ++ show (map ((`rem`d).(^n)) px)
) nx
) (k,[2..k],[0..(k-1)])
) 11
"n^2 [0,1,4,9,5,3,3,5,9,4,1]"
"n^3 [0,1,8,5,9,4,7,2,6,3,10]"
"n^4 [0,1,5,4,3,9,9,3,4,5,1]"
"n^5 [0,1,10,1,1,1,10,10,10,1,10]"
"n^6 [0,1,9,3,4,5,5,4,3,9,1]"
"n^7 [0,1,7,9,5,3,8,6,2,4,10]"
"n^8 [0,1,3,5,9,4,4,9,5,3,1]"
"n^9 [0,1,6,4,3,9,2,8,7,5,10]"
"n^10 [0,1,1,1,1,1,1,1,1,1,1]"
"n^11 [0,1,2,3,4,5,6,7,8,9,10]"