[過去ﾛｸﾞ] 高校数学の質問スレ Part410 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

273(1): [sage] 2021/02/27(土) 07:43:32.31 ID:OeBvHzTl(4/8) AAS
>>271
受験スレじゃないからね。
検算にシミュレーションは有効な手段だし、指折り数えるのを総当たりにして道具で数えているだけ。

【問題】　１００００以下の隣り合う素数で最も差が大きいのはいくつといくつの間か？

グラフを書いても数行で終了。
f <- function(n){
y=(1:n)[-outer(2:n,2:n)][-1]
d=diff(y)
plot(y,c(0,d),'h',col=2,xlab='素数',ylab='次の素数との差')
idx=which(d==max(d))
c(y[idx],y[idx+1])
}

f(10000)でのグラフ
画像ﾘﾝｸ[png]:i.imgur.com

---

280: [sage] 2021/02/27(土) 09:25:21.51 ID:2lHVm1zT(2/4) AAS
>>273
プログラムスレじゃないからね

---

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

---

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

---

ぬこの手 ぬこTOP 1.607s*