[過去ﾛｸﾞ] 高木くんがアクセプトされるまで見守るスレ ★4 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

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

---

701(2): １３２人目の素数さん [sage] 2023/07/27(木)07:46 ID:1JOgsDl0(3/3)
>>699
>「perfectだ。」、「endorsementだ。」、「天衣無縫だ。」、「ご名答。」
>と言われる私の論文

夢を見たんですよ。現実はリジェクトしかされない論文…高木くんの中では保留でしたっけ

早く一般的なnについてのアルゴリズムとやらをコンピュータで回せるプログラムの形で書いてください

---

704(2): ◆pObFevaelafK [sage] 2023/07/27(木)11:29 ID:Rrvg2yJA(4/11)
>>701
Option Explicit

Sub ObtainRelation()
Dim l As Long
Dim l1 As Long
Dim l2 As Long
Dim m As Long
Dim n As Long
Dim p As Long
Dim a As Long
Dim b As Long
Dim lSkip As Long
Dim lMax As Long
Dim lCount As Long
Dim d As Double
Dim s As String
Dim rFlags() As Boolean
Dim pFlags() As Boolean
Dim bCombinations() As Boolean
Dim lPrimes(1000) As Long

n = 19

SetPrimes lPrimes

ReDim rFlags(n - 1) As Boolean
ReDim pFlags(n - 1) As Boolean
For l = 0 To n - 1
rFlags(l) = True
pFlags(l) = True
Next

m = 0
Do
m = m + 1
If lPrimes(m) > n - 1 Then Exit Do
Loop
m = m - 1
ReDim bCombinations(n - 2, m) As Boolean

For l = 0 To n - 2
p = n ^ 2 + 1 + l
For l1 = 1 To m
If p Mod lPrimes(l1) = 0 Then
bCombinations(l, l1) = True
End If
Next
Next

---

708: ◆pObFevaelafK [sage] 2023/07/27(木)11:34 ID:Rrvg2yJA(8/11)
>>701
Excel VBAのプログラム>>704の"n=19"の部分を変更すれば
そのnのときの、pとrの関係を出力する

---

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

---

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

---

ぬこの手 ぬこTOP 0.050s