[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)

高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

220: １３２人目の素数さん [sage] 2024/04/16(火) 07:17:02.79 ID:zrlvndwL >>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のスクリプトくらい書けないの？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/220

225: １３２人目の素数さん [sage] 2024/04/16(火) 10:27:56.91 ID:zrlvndwL 登録すればテキストベースのWolframScriptが使えるので ダウンロードしてインストール Rに移植して遊ぶ 正整数 n を b 進法の数列にして出力するWolframの関数　IntegerDigits Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= IntegerDigits[2024,2] Out[1]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0} IntegerDigitsをRにone-linerとして移植 IntegerDigits=\(n,b) (n%/% (b^(floor(log(n)/log(b)):0))) %% b > IntegerDigits(2024,2) [1] 1 1 1 1 1 1 0 1 0 0 0 再度、RからWolframにone-linerとして再移植 In[2]:= integerdigits[n_,b_] := Table[Mod[e,b],{e, Table[Quotient[n,d],{d,Table[b^c,{c,Reverse[Range[0,Floor[Log[n]/Log[b]]]]}]}] }] In[3]:= integerdigits[2024,2] Out[3]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0} http://rio2016.5ch.net/test/read.cgi/math/1712376048/225

226: １３２人目の素数さん [sage] 2024/04/16(火) 10:44:45.31 ID:zrlvndwL これは正しいか？ nを2以上の整数とし、mを1,2,3,...,n-2,n-1とする. どのmについても　m^(n-1) ≡ 1 (mod n)となるのは nが素数のときに限る。 Wolframで体感 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= f[n_] := Table[Mod[m^(n-1),n],{m,1,n-1}] In[2]:= f[17] Out[2]= {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} In[3]:= f[19] Out[3]= {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} In[4]:= f[23] Out[4]= {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} http://rio2016.5ch.net/test/read.cgi/math/1712376048/226

227: １３２人目の素数さん [sage] 2024/04/16(火) 10:45:35.73 ID:zrlvndwL >>223 罵倒　＞　助言　の　Phimose草の不等式が次々と実証されてますなぁ 解説 It is as if Mr. Phimose loves to use the expression of 'kusa' that fondles his foreskin too much which has made his hands stink. http://rio2016.5ch.net/test/read.cgi/math/1712376048/227

228: １３２人目の素数さん [sage] 2024/04/16(火) 11:04:45.30 ID:zrlvndwL >>224 ＞文法的におかしな文章書いても計算機はとりあえず動いてくれる 普通はエラーメッセージがでるぞ。 括弧対応を自動修正してくれたりするのもあるけど。 Log[Sin[Pi-1]を入力するとWolframalpha.comは括弧を補完して計算値を出力してくれるが、 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)だと何も出力されない。 人間なら誤字脱字は脳内変換や脳内補完できるはずなんだが、 Phimoseくんにはそれができないらしい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/228

229: １３２人目の素数さん [sage] 2024/04/16(火) 11:18:16.20 ID:zrlvndwL >>224 >220のコードが読めれば>198の意味がわかるはず。 Wolframで計算が終了するように>220の改変を希望。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/229

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.249s*