[過去ﾛｸﾞ] 高木くんがアクセプトされるまで見守るスレ ★4 (1002ﾚｽ)

高木くんがアクセプトされるまで見守るスレ ★4 http://rio2016.5ch.net/test/read.cgi/math/1688037294/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

705: ◆pObFevaelafK [sage] 2023/07/27(木) 11:30:33.70 ID:Rrvg2yJA >>704 追記 For l1 = m To 1 Step -1 a = 0 b = Int((n - 1) / lPrimes(l1)) lSkip = -1 lMax = 0 For l = 0 To n - 2 p = n ^ 2 + 1 + l If p Mod lPrimes(l1) = 0 Then If pFlags(l) Then a = a + 1 For l2 = l1 - 1 To 1 Step -1 If bCombinations(l, l2) Then If lSkip = -1 Then lSkip = l lMax = l2 Exit For Else If l2 > lMax Then lSkip = l lMax = l2 Exit For End If End If End If Next End If End If Next http://rio2016.5ch.net/test/read.cgi/math/1688037294/705

706: ◆pObFevaelafK [sage] 2023/07/27(木) 11:31:34.30 ID:Rrvg2yJA >>705 追記 l2 = 0 s = "r=" & CStr(lPrimes(l1)) & ", " If a <= b Then For l = 0 To n - 2 p = n ^ 2 + 1 + l If p Mod lPrimes(l1) = 0 Then If pFlags(l) Then Do l2 = l2 + 1 If rFlags(lPrimes(l1) * l2) Then s = s & "[" & CStr(p) & "," & lPrimes(l1) * l2 & "]" lCount = lCount + 1 pFlags(l) = False rFlags(lPrimes(l1) * l2) = False Exit Do End If Loop End If End If Next Else http://rio2016.5ch.net/test/read.cgi/math/1688037294/706

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.050s