[過去ログ] 高校数学の質問スレ Part434 (1002レス)
前次1-
抽出解除 レス栞

このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
リロード規制です。10分ほどで解除するので、他のブラウザへ避難してください。
238
(2): 2024/04/16(火)17:33 ID:RRexi8To(1/5) AAS
>>235
それだと1種類になるのは(n-1)乗であるという前提での計算ではないですか?
244: 2024/04/16(火)19:12 ID:RRexi8To(5/5) AAS
>>238
>226を前提にしたら
In[1]:= Prime[2024]

Out[1]= 17599
で終了。
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}]
省1
前次1-
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.028s