[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

235(1): 2024/04/16(火)15:02 ID:7gGe0Okf(1/2) AAS
>>220
UnionもLengthもMinもいらない。
O(n^2)のメモリもいらない。

count=0;
Do[
For[flag=1;k=1,flag==1 && k<n,k++,If[Mod[k^(n-1),n]==1,Null,flag=0]];
If[flag==1,count++;Print[{count,n,Prime[count]}],Null];
,{n,2,18000}]

k=1,2,3,...,n-1に対し、Mod[k^(n-1),n]==1　となるような n を見つけたら、
countを1アップして、countとnとPrime[count]を表示する。
省1

---

248: 2024/04/16(火)22:25 ID:7gGe0Okf(2/2) AAS
>>238
その前提で組んだけど、(n-1)乗固定ではないのなら、ちょっとだけ改変

count=0;
Do[
For[flag=1;k=1,flag==1 && k<n,k++,If[Mod[k^m,n]==1,Null,flag=0]];
If[flag==1,count++;Print[{count,n,m,Prime[count]}],Null];
,{n,2,18000},{m,1,n-1}]

与えられた、mとnに対し、k=1,2,3,...,n-1と変化しても、常に、Mod[k^m,n]==1なら、出力

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.918s*