- 267 名前：１３２人目の素数さん mailto:sage [2024/04/17(水) 07:01:47.87 ID:Ec1zJCxR.net]
- pの剰余系で2,3,...,p-2,p-1を累乗したときに現れる剰余の種類の最低値を求める。
例: 7の剰余系で1,2,3,4,5,6の6乗はすべて1 (mod 7)
In[1]:= Table[Mod[n^6,7],{n,1,6}]
Out[1]= {1, 1, 1, 1, 1, 1}
100までで計算すると
f1[n_] := Table[Mod[a^b,n],{b,1,n-1},{a,2,n-1}]
f2[n_] := Table[Union[li],{li,f1[n]}]
f3[n_] := Table[Length[f2[n][[m]]],{m,n-1}]
f4[n_] := Min[f3[n]]
Table[f4[n],{n,2,100}]
Out[10]= {0, 1, 2, 1, 3, 1, 2, 2, 3, 1, 4, 1, 3, 3, 2, 1, 4, 1, 4, 3, 3, 1, 4, 2, 3, 2, 4, 1, 7, 1, 2,
> 3, 3, 3, 4, 1, 3, 3, 4, 1, 7, 1, 4, 4, 3, 1, 4, 2, 4, 3, 4, 1, 4, 3, 4, 3, 3, 1, 8, 1, 3, 4, 2, 3,
> 7, 1, 4, 3, 7, 1, 4, 1, 3, 4, 4, 3, 7, 1, 4, 2, 3, 1, 8, 3, 3, 3, 4, 1, 8, 3, 4, 3, 3, 3, 4, 1, 4,
> 4, 4}
Wolframだと0^0は未定義 Indeterminate expression 0 encountered なので0種類が帰ってきた。
１種類になるのはすべて素数のときになっている。
|
 |
