24/04/16 07:17:02.79 zrlvndwL.net
>>198
Wolfram言語で算出を試みる
f1[n_] := Table[Mod[a^b,n],{b,n-1},{a,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]]
n=2; m=1; While[m<2024,n++; m=m+Boole[f4[n]==1]]
n
数が大きすぎて計算が終わらないｗ
想定解は17599
1種類になることなら確認できる。
fn[n_] := Table[Mod[a^(n-1),n],{a,n-1}] // Union
fn[17599]
In[20]:= fn[17599]
Out[20]= {1}
東大合格者による検証を希望します。
Rを馬鹿にしていたPhimoseくんってWolframのスクリプトくらい書けないの？