[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
198(2): 2024/04/15(月)07:55 ID:c1EB406w(4/4) AAS
Wolframscriptで遊ぶ朝飯前の問題
３の剰余系で
1^2≡1
2^2≡1
の1種類である。
４の剰余系で1,2,3を累乗すると２もしくは３種類である.
５の剰余系で1,2,3,4を累乗していくと２乗で２種類、３乗で４種類、４乗で１種類になる。
省2
220(2): 2024/04/16(火)07:17 ID:zrlvndwL(1/6) AAS
>>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]]
省10
229: 2024/04/16(火)11:18 ID:zrlvndwL(6/6) AAS
>>224
>220のコードが読めれば>198の意味がわかるはず。
Wolframで計算が終了するように>220の改変を希望。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.039s