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

---

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

---

156: 2024/04/14(日)05:37 ID:T4z17oY+(4/22) AAS
Rでの算出
> tbl
1 2 3 4 5 6 7 8 9
415441 77025 75290 74114 72951 72257 71564 71038 70320
> order(tbl,decreasing = TRUE)
[1] 1 2 3 4 5 6 7 8 9

Wolframscriptでの算出
In[30]:= a=Table[Count[Table[First[IntegerDigits[n]], {n, Prime[Range[10^6]]}],m],{m,9}]

Out[30]= {415441, 77025, 75290, 74114, 72951, 72257, 71564, 71038, 70320}

In[31]:= Reverse[Table[Range[9][[i]],{i,Ordering[a]}]]
省3

---

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

---

あと 846 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.009s