[過去ﾛｸﾞ] 高校数学の質問スレ（医者・東大卒専用） Part438 (1002ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

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

---

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

---

335: １３２人目の素数さん [sage] 2024/11/23(土) 03:28:36.32 ID:qyJPztJt WolframのDayName関数に 存在しない閏年の2月29日を引数として与えるとその年の3月1日の曜日を返す仕様のようである。俺にはバクに思えるのだが。 DayName[{2025,2,29}] DayName[{2025,3,1}] を実行してみるとよい。 問題 この仕様を利用して 西暦２０２５年から西暦１００００年まで２月２９日が日曜日になることは何回あるか？現行のグレゴリオ暦を用いて計算せよ。 を答を算出して、R言語での結果259回と合致するかを検証せよ。 f[x_,y_:Sunday] := DayName[{x,2,29}]!=DayName[{x,3,1}] && DayName[{x,2,29}]==y Table[Boole@f[x],{x,2025,10000}] // Total http://rio2016.5ch.net/test/read.cgi/math/1723152147/335

336: １３２人目の素数さん [sage] 2024/11/23(土) 10:08:33.97 ID:qyJPztJt (1) 九九に現れる数字は1から81までである。何種類あるか？ (2) 1から99までの数字を２つかけてできる数は何種類あるか? (3) 1から999までの数字を２つかけてできる数は何種類あるか? (4) 1から9999までの数字を２つかけてできる数は何種類あるか? R calc=\(n) outer(1:n,1:n)|>as.vector()|>unique()|>length() sapply(c(9,99,999,9999),calc) Wolfram solve[n_]:= Table[x y,{x,Range[n]},{y,Range[n]}] // Flatten // Union // Length Table[solve[n],{n,{9,99,999,9999}}] http://rio2016.5ch.net/test/read.cgi/math/1723152147/336

337: １３２人目の素数さん [sage] 2024/11/23(土) 14:11:53.97 ID:3sUy/oAC >>333 意味のない問題を出題して無知と恥をアピールwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/337

338: １３２人目の素数さん [sage] 2024/11/23(土) 16:01:29.80 ID:qyJPztJt 年賀状の３等は１００枚に３枚が当たる確率である。 (1) １００枚の年賀状を無作為に購入したときの当たりの枚数の期待値を求めよ。 (2) ３等が当たっている年賀状の枚数が奇数の確率をＰとする。Pは0.5より大きいか小さいか、直感で即答せよ。 (3) (2)の確率を分数で求めよ。 (4) (3)をシミュレーションで検証してみよ。 p=3/100; Table[Binomial[100,2n-1] p^(2n-1) (1-p)^(100-(2n-1)),{n,1,50}] // Total % // N Table[Boole@OddQ@RandomVariate[BinomialDistribution[100,3/100]],10^6] // Mean http://rio2016.5ch.net/test/read.cgi/math/1723152147/338

339: １３２人目の素数さん [sage] 2024/11/23(土) 16:02:37.24 ID:qyJPztJt 意味のある問題（シリツ卒には解けないようだ） 採決スピッツや試薬をどれだけ準備すべきかが算出できる。 日本人の血液型はAB:B:O:A＝1：2：3：4であるという。 無作為に何人かの血液型を調べて、 調べた人にすべての血液型が含まれる確率を99%以上にしたい。 (1) 何人以上調べればよいか？ (2) 99％を越えたときの確率を分数で算出せよ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/339

340: １３２人目の素数さん [sage] 2024/11/23(土) 16:15:55.46 ID:IPIzs9Xw >>339 ここでいくら発狂しても相手にされないみたいだねw 実に哀れ 自分でも解けないんだろ？というか問題として成立してないw http://rio2016.5ch.net/test/read.cgi/math/1723152147/340

341: １３２人目の素数さん [sage] 2024/11/26(火) 20:42:38.86 ID:HQUgcf8k 意味のある問題と思い込めるってwww 並外れた低脳アピールwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/341

342: １３２人目の素数さん [sage] 2024/11/29(金) 06:08:12.87 ID:d3rJHsIX # 10桁のカプレカー数を列挙するプログラムを作り実行せよ n=10 library(RcppAlgos) is.kaprekar=\(m){ IntegerDigits=\(n) as.integer(unlist(strsplit(as.character(n),''))) le=length(m) mu=10^((le-1):0) min=sum(sort(m)*mu) max=sum(sort(m,decreasing = TRUE)*mu) n=sum(m*mu) d=max-min sum(sort(IntegerDigits(d))*mu)==min & min!=max } cm=comboGeneral(0:9,n,repetition = TRUE) re=cm[apply(cm,1,is.kaprekar),] kaprekar=\(m){ le=length(m) mu=10^((le-1):0) min=sum(sort(m)*mu) max=sum(sort(m,decreasing = TRUE)*mu) n=sum(m*mu) max-min } apply(re,1,kaprekar) http://rio2016.5ch.net/test/read.cgi/math/1723152147/342

343: １３２人目の素数さん [sage] 2024/11/29(金) 16:54:45.54 ID:a8qsJeEV https://i.imgur.com/4vCgmrg.png http://rio2016.5ch.net/test/read.cgi/math/1723152147/343

344: １３２人目の素数さん [sage] 2024/11/30(土) 07:28:27.00 ID:L4mkprla hex[x_]:=ResourceFunction["HexConvert"][x]; start="100"; end="fff"; d=hex /@ Range[hex[start],hex[end]]; s=StringSplit[#,""]& /@ d; KaprekarHexQ[x_] := hex[hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x] == StringJoin@x; StringJoin /@ Select[s,KaprekarHexQ] http://rio2016.5ch.net/test/read.cgi/math/1723152147/344

345: １３２人目の素数さん [sage] 2024/11/30(土) 10:21:21.14 ID:L4mkprla (* 16進法でｎ桁のカプレカ数を求める *) n=6 hex[x_]:=ResourceFunction["HexConvert"][x]; s=ResourceFunction["OrderlessCombinations"][hex /@ Range[0,15],{n}]; KaprekarHexQ[x_] := ( d=hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x; lid=StringSplit[hex@d,""]; hex[hex@StringJoin@ReverseSort@lid - hex@StringJoin@Sort@lid]==StringJoin@lid && d!=0 ) re=Select[s,KaprekarHexQ]; hex /@ (hex@StringJoin@ReverseSort@# - hex@StringJoin@Sort@# & /@re) // Union http://rio2016.5ch.net/test/read.cgi/math/1723152147/345

346: １３２人目の素数さん [sage] 2024/11/30(土) 14:45:57.18 ID:L4mkprla ｂ進法、ｎ桁のカプレカ数を求めるように拡張 (* ｂ進法でｎ桁のカプレカ数を返す b <= 36 *) solve[b_,n_]:=( dec2n[x_] :=( r=List@Mod[x,b]; q=Floor[x/b]; While[q > 0,PrependTo[r,Mod[q,b]];q=Floor[q/b]]; r ); DigitsInteger[x_] :=( le=Length@x; Table[(Reverse@x)[[i]]*b^(i-1),{i,1,le}]//Total ); digits=Flatten@{Range[0,9],Alphabet[]}; s=ResourceFunction["OrderlessCombinations"][digits[[Range[1,b]]],{n}]; KaprekarBinQ[x_]:=( d=DigitsInteger@ReverseSort@x - DigitsInteger@Sort@x; lid=dec2n[d]; DigitsInteger@ReverseSort@lid - DigitsInteger@Sort@lid == DigitsInteger@lid && d!=0 ); re=Select[s,KaprekarBinQ]; ans10=Union@(DigitsInteger@ReverseSort@# - DigitsInteger@Sort@# & /@ re); ans2=dec2n /@ ans10; ans3=Table[digits[[i]],{i,ans2+1}]; Le=Length[ans3]; Table[StringJoin @ (ToString /@ ans3[[i]]),{i,1,Le}] ) solve[2,10] solve[16,6] http://rio2016.5ch.net/test/read.cgi/math/1723152147/346

347: １３２人目の素数さん [sage] 2024/11/30(土) 16:16:40.90 ID:BMBeqwqc (* 疑似ヴァンパイア数（Pseudovampire numbers）は、「数字を2等分」という縛りを無くした数である。 例えば126 = 6×21など。 https://ja.wikipedia.org/wiki/ヴァンパイア数 問題　３桁の疑似ヴァンパイア数を列挙せよ。 *) f[n_]:=( p=Permutations[IntegerDigits[n],{3}]; prd=(10 #[[1]]+#[[2]])#[[3]]& /@ p; ContainsAny[prd,{n}] ) n=Select[Range[100,999],f] g[x_]:=( p=Permutations[IntegerDigits[x],{3}]; prd=(10 #[[1]]+#[[2]])#[[3]]& /@ p; i=Position[prd,x][[1]][[1]]; {10p[[i]][[1]]+p[[i]][[2]],p[[i]][[3]]} ) g /@ n http://rio2016.5ch.net/test/read.cgi/math/1723152147/347

348: １３２人目の素数さん [sage] 2024/11/30(土) 17:54:56.00 ID:L4mkprla (* 問題　5桁の疑似ヴァンパイア数を列挙せよ。 *) f14[n_]:=( d=IntegerDigits[n]; p=Permutations[d,{5}]; prd=#[[1]]*(1000 #[[2]]+100 #[[3]]+10 #[[4]]+#[[5]])& /@p; i=Position[prd,n]; ans={}; If[i!={}, idx=i[[1]][[1]]; re=p[[idx]]; AppendTo[ans,{re[[1]],1000re[[2]]+100re[[3]]+10re[[4]]+re[[5]]}] ]; ans ) res=Partition[Flatten@Table[f14[n],{n,10000,99999}],2]; {#[[1]],#[[2]],#[[1]]#[[2]]} & /@res http://rio2016.5ch.net/test/read.cgi/math/1723152147/348

349: １３２人目の素数さん [sage] 2024/11/30(土) 17:55:14.99 ID:L4mkprla {{5, 2051, 10255}, {5, 2105, 10525}, {9, 1251, 11259}, {8, 1481, 11848}, > {6, 2001, 12006}, {6, 2010, 12060}, {3, 4128, 12384}, {5, 2501, 12505}, > {5, 2510, 12550}, {5, 2519, 12595}, {6, 2100, 12600}, {6, 2127, 12762}, > {3, 4281, 12843}, {5, 2591, 12955}, {3, 4515, 13545}, {3, 5001, 15003}, > {3, 5010, 15030}, {6, 2541, 15246}, {3, 5100, 15300}, {3, 5145, 15435}, > {9, 1755, 15795}, {6, 2712, 16272}, {2, 8714, 17428}, {2, 8741, 17482}, > {3, 7125, 21375}, {3, 7251, 21753}, {5, 5021, 25105}, {5, 5102, 25510}, > {9, 3501, 31509}, {9, 3510, 31590}, {8, 4730, 37840}, {8, 4973, 39784}, > {6, 7446, 44676}, {9, 5751, 51759}, {8, 6521, 52168}, {9, 6255, 56295}, > {9, 7461, 67149}, {8, 8600, 68800}, {9, 7911, 71199}, {9, 8775, 78975}} http://rio2016.5ch.net/test/read.cgi/math/1723152147/349

350: １３２人目の素数さん [sage] 2024/11/30(土) 17:55:44.99 ID:L4mkprla f23[n_]:=( d=IntegerDigits[n]; p=Permutations[d,{5}]; prd=(10 #[[1]]+#[[2]])(100 #[[3]]+10 #[[4]]+#[[5]])& /@p; i=Position[prd,n]; ans={}; If[i!={}, idx=i[[1]][[1]]; re=p[[idx]]; AppendTo[ans,{10 re[[1]]+re[[2]],100re[[3]]+10re[[4]]+re[[5]]}] ]; ans ) res=Partition[Flatten@Table[f23[n],{n,10000,99999}],2]; {{51, 201, 10251}, {26, 401, 10426}, {21, 501, 10521}, {15, 705, 10575}, > {84, 141, 11844}, {60, 201, 12060}, {51, 246, 12546}, {50, 251, 12550}, > {21, 600, 12600}, {14, 926, 12964}, {41, 323, 13243}, {15, 930, 13950}, > {35, 401, 14035}, {41, 350, 14350}, {30, 501, 15030}, {51, 300, 15300}, > {24, 651, 15624}, {75, 231, 17325}, {47, 371, 17437}, {81, 225, 18225}, > {65, 281, 18265}, {87, 210, 18270}, {21, 906, 19026}, {21, 915, 19215}, > {86, 251, 21586}, {27, 810, 21870}, {35, 725, 25375}, {47, 542, 25474}, > {42, 678, 28476}, {32, 926, 29632}, {90, 351, 31590}, {53, 635, 33655}, > {36, 936, 33696}, {63, 585, 36855}, {80, 473, 37840}, {87, 435, 37845}, > {65, 641, 41665}, {89, 482, 42898}, {54, 846, 45684}, {65, 704, 45760}, > {84, 546, 45864}, {57, 834, 47538}, {78, 624, 48672}, {59, 845, 49855}, > {63, 855, 53865}, {65, 875, 56875}, {68, 926, 62968}, {65, 983, 63895}, > {72, 936, 67392}, {75, 906, 67950}, {86, 800, 68800}} {#[[1]],#[[2]],#[[1]]#[[2]]} & /@res http://rio2016.5ch.net/test/read.cgi/math/1723152147/350

351: １３２人目の素数さん [sage] 2024/11/30(土) 19:19:39.71 ID:xA0BaYQb >>350これには完全ダンマリで草 954：卵の名無しさん：2024/11/30(土) 10:54:08.14 ID:Wtu16ESx >>951 まあお前と違って俺は一回200万ぐらい病院に入る治療出来るからそういうのなら病院にとって呼ぶ価値あるけどな 車で行ってるから交通費も貰ってないけど 一回10万でやってあげてるよ んで、お前は？GFで数件覗くだけ？ 1件11400円を数件やるだけなのにわざわざ新幹線とタクシー使ってで来てもらうの？ 生検やっても＋3000円だぞ 採算取れるわけねーだろ 適当にM3とかで近くの車持ってる奴雇った方が安いわwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/351

352: １３２人目の素数さん [sage] 2024/11/30(土) 20:02:31.66 ID:BMBeqwqc >>351 1日15件くらいやってますが？ 昔は20件を超えることもあったな。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/352

353: １３２人目の素数さん [sage] 2024/11/30(土) 20:20:57.57 ID:xA0BaYQb >>352 一日15件やってもせいぜい十数万だからそんなコストかけて雇う価値ないだろうなww http://rio2016.5ch.net/test/read.cgi/math/1723152147/353

354: １３２人目の素数さん [sage] 2024/11/30(土) 20:53:11.89 ID:xA0BaYQb >>352 なんで医者板で直接言えないのかな？ 脳内医者ってまたボコボコにされるのが目に見えてるからかな？ww http://rio2016.5ch.net/test/read.cgi/math/1723152147/354

355: １３２人目の素数さん [sage] 2024/11/30(土) 22:09:43.96 ID:7d0ZfVfE >>352 967：卵の名無しさん：[sage]：2024/11/30(土) 21:57:37.31 ID:7TzF2IEd 湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね https://www.skgh.jp/department/hbps/ https://www.suruga-ya.jp/product/detail/131150111 http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html はい、いつものコピペダンマリきたw http://rio2016.5ch.net/test/read.cgi/math/1723152147/355

356: １３２人目の素数さん [sage] 2024/12/01(日) 08:47:17.63 ID:h0Y8DNCF >>352 この、偽医者なんか必死だな 何故か逆鱗に触れてしまったようだ http://rio2016.5ch.net/test/read.cgi/math/1723152147/356

357: １３２人目の素数さん [sage] 2024/12/01(日) 10:07:47.95 ID:URtmhVxU f(x,y)= x^y+y^x 0 <= x <= 1 かつ　0 <= y <= 1 とする (1) z=f(x,y)を図示せよ 例　https://i.imgur.com/srMiE7B.gif (2) z=f(x,y)とx-y平面で囲まれた図形の体積を求めよ (3) z=f(x,y)の面積を求めよ（有効数字3桁の近似値でよい） http://rio2016.5ch.net/test/read.cgi/math/1723152147/357

358: １３２人目の素数さん [sage] 2024/12/01(日) 10:09:48.53 ID:URtmhVxU f(x,y)= x^y+y^x 0 <= x <= 1 かつ　0 <= y <= 1 とする (1) z=f(x,y)を図示せよ 例　https://i.imgur.com/srMiE7B.gif (2) z=f(x,y)とx-y平面で囲まれた図形の体積を求めよ (3) z=f(x,y)の面積を求めよ（有効数字3桁の近似値でよい） R f=Vectorize(\(x,y) x^y + y^x) g=\(x) integrate(\(y) f(x,y),0,1)$value g=Vectorize(g) integrate(g,0,1) log(4) fx=D(expression(x^y+y^x),'x') fy=D(expression(x^y+y^x),'y') fa=\(x,y) sqrt(1+eval(fx)^2+eval(fy)^2) fa=Vectorize(fa) ff=\(x) integrate(\(y) fa(x,y),0,1)$value ff=Vectorize(ff) integrate(ff,0,1) Wolfram f[x_,y_]:= x^y + y^x Integrate[f[x,y],{x,0,1},{y,0,1}] ff[x_,y_]:=Sqrt[1+D[f[x,y],x]^2+D[f[x,y],y]^2] NIntegrate[ff[x,y],{x,0,1},{y,0,1}] http://rio2016.5ch.net/test/read.cgi/math/1723152147/358

359: １３２人目の素数さん [sage] 2024/12/01(日) 10:23:07.24 ID:rRY5OR0u >>357 https://egg.5ch.net/test/read.cgi/hosp/1723605276/ 968：卵の名無しさん：2024/11/30(土) 22:02:25.06 ID:dp7m04yN >>966 こっちだとフルボッコにされるからって情けないよな… 969：卵の名無しさん：2024/12/01(日) 01:00:00.23 ID:tCw/HuPn 1人で上部内視鏡1日15件はねーよ 1人で回すんなら入れ替えとか麻酔も含めて1件最低30分はかかるからどんだけ早くても10件が限度だよ 脳内医者はスピードが半端ないってことかな？スピード速すぎて癌見逃しちゃうねwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/359

360: １３２人目の素数さん [sage] 2024/12/01(日) 13:24:19.50 ID:URtmhVxU ナルシシスト数（ナルシシストすう、英: narcissistic number）とは、n 桁の自然数であって、その各桁の数の n 乗の和が、元の自然数に等しくなるような数をいう。 例えば、1^3 + 5^3 + 3^3 = 153 であるから、153 はナルシシスト数である。 .... 十進法に限らず、他の基数においても同様にナルシシスト数を定義できる 問題　 16進法で4桁までのナルシスト数は何個あるか？ すべて列挙せよ。 {1, 2, 3, 4, 5, 6, 7, 8, 9, a, b, c, d, e, f, 156, 173, 208, 248, 285, 4a5, 5b0, 5b1, > 60b, 64b, 8c0, 8c1, 99a, aa9, ac3, ca8, e69, ea0, ea1, b8d2} hex[x_]:= ResourceFunction["HexConvert"][x] NaruQ[s_]:=( d=hex /@ StringSplit[s,""]; le=Length[d]; hex@Total[d^le] == s ) solve[start_:"1",end_:"fff"]:=( h=hex /@ Range[hex[start],hex[end]]; Select[h,NaruQ] ) solve["10000","fffff"] {13579, 2b702, 2b722, 5a07c, 5a47c, c00e0, c00e1, c04e0, c04e1, c60e7, c64e7, c80e0, > c80e1, c84e0, c84e1, de030, de031, de430, de431, eb7c2, fb06a, fb46a, fc276} http://rio2016.5ch.net/test/read.cgi/math/1723152147/360

361: １３２人目の素数さん [sage] 2024/12/01(日) 16:43:54.21 ID:URtmhVxU (* decimal integer to b-based digits 10進法ｘをｂ進法表記の文字リストに返還*) i2d[x_,b_:16] :=( digits=Flatten@{"0","1","2","3","4","5","6","7","8","9",Alphabet[]}; r=List@Mod[x,b]; q=Floor[x/b]; While[q > 0,PrependTo[r,Mod[q,b]];q=Floor[q/b]]; digits[[r+1]] ) (* b-based digits to decimal integer ｂ進法表記文字列xを10進法の数に返還 *) d2i[x_,b_:16] :=( tonum[char_]:=( digits=Flatten@{"0","1","2","3","4","5","6","7","8","9",Alphabet[]}; Position[digits,char][[1]][[1]]-1 ); ss=StringSplit[x,""]; d10=tonum /@ ss; le=Length@ss; Table[(Reverse@d10)[[i]]*b^(i-1),{i,1,le}]//Total ) (* ハーシャッド数（ハーシャッドすう、英: harshad number）とは、自然数の各位の数字和が元の数の約数に含まれている自然数である。*) harshadQ[n_,b_] := Divisible[n,Total[d2i[#,b]&/@i2d[n,b]]] solve[start_:"1",end_:"ff",b_] :=( li=Select[Range[d2i[start,b],d2i[end,b]],harshadQ[#,b]&]; re=i2d[#,b]& /@ li; StringJoin /@ re ) http://rio2016.5ch.net/test/read.cgi/math/1723152147/361

362: １３２人目の素数さん [sage] 2024/12/01(日) 17:01:28.38 ID:rRY5OR0u >>361 どうせ高校生にすらバカにされてるからもう出てこなくていいよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/362

363: １３２人目の素数さん [sage] 2024/12/01(日) 19:45:01.45 ID:URtmhVxU https://ja.wikipedia.org/wiki/レイランド数 レイランド数（レイランドすう、英: Leyland number）は、数論において次の形で表される数 x^y + y^x x と y は1より大きい整数 .... また加算の交換性のために x ≥ y の条件は通常レイランド数の重複をさけるために加えられる。(よって 1 < y ≤ x を用いる) https://oeis.org/A076980に 8, 17, 32, 54, 57, 100, 145, 177, 320, 368, 512, 593, 945, 1124, 1649, 2169, 2530, 4240, 5392, 6250, 7073, 8361, 16580, 18785, 20412, 23401, 32993, 60049, 65792, 69632, 93312, 94932, 131361, 178478, 262468, 268705, 397585, 423393, 524649, 533169 が例示されている。 問題　各々のレイランド数についてx,yを求めよ。1 < y ≤ x とする。 想定解 {{2, 2, 8}, {3, 2, 17}, {4, 2, 32}, {3, 3, 54}, {5, 2, 57}, {6, 2, 100}, {4, 3, 145}, > {7, 2, 177}, {8, 2, 320}, {5, 3, 368}, {4, 4, 512}, {9, 2, 593}, {6, 3, 945}, > {10, 2, 1124}, {5, 4, 1649}, {11, 2, 2169}, {7, 3, 2530}, {12, 2, 4240}, > {6, 4, 5392}, {5, 5, 6250}, {8, 3, 7073}, {13, 2, 8361}, {14, 2, 16580}, > {7, 4, 18785}, {9, 3, 20412}, {6, 5, 23401}, {15, 2, 32993}, {10, 3, 60049}, > {16, 2, 65792}, {8, 4, 69632}, {6, 6, 93312}, {7, 5, 94932}, {17, 2, 131361}, > {11, 3, 178478}, {18, 2, 262468}, {9, 4, 268705}, {7, 6, 397585}, {8, 5, 423393}, > {19, 2, 524649}, {12, 3, 533169}} http://rio2016.5ch.net/test/read.cgi/math/1723152147/363

364: １３２人目の素数さん [sage] 2024/12/01(日) 20:07:42.63 ID:URtmhVxU >>363 レイランド素数はレイランド数でもあり素数でもある数。 https://oeis.org/A094133 に例示してある最大の数は 5052785737795758503064406447721934417290878968063369478337 である。 問題 (1)　次に続く数字を求めよ (2) その次に続く数字を求めよ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/364

365: １３２人目の素数さん [sage] 2024/12/01(日) 20:08:38.16 ID:URtmhVxU 想定解 205688069665150755269371147819668813122841983204711281293004769, 3329896365316142756322307042065269797678257903507506764421250291562312417, おまけ 814539297859635326656252304265822609649892589675472598580095801187688932052096060144958129 http://rio2016.5ch.net/test/read.cgi/math/1723152147/365

366: １３２人目の素数さん [sage] 2024/12/02(月) 06:58:51.71 ID:5RqvHzG8 Leyland[n_]:=( ymax=Floor@y /. NSolve[2 y^y == n && y>1,y,Reals][[1]]; xmax=Floor@x /. NSolve[x^2+2^x==n && x>1,x,Reals][[1]]; z=Flatten[Table[{x^y+y^x,x,y},{x,2,xmax},{y,2,ymax}],1]; Select[z,#[[1]]==n&] ) Leyland[42832853457545958193355601] http://rio2016.5ch.net/test/read.cgi/math/1723152147/366

367: １３２人目の素数さん [sage] 2024/12/02(月) 07:11:43.77 ID:5RqvHzG8 レイランド数（レイランドすう、英: Leyland number）は、数論において次の形で表される数 x^y + y^x x と y は1より大きい整数 .... また加算の交換性のために x ≥ y の条件は通常レイランド数の重複をさけるために加えられる。(よって 1 < y ≤ x を用いる) ある数 nがレイランド数であるかを判定して、レイランド数であれば n = x^y + y^x (但し1 < y ≤ x）となる x,y を算出する 操作をレイランド分解と呼ぶことにする。 (1) 20241202はレイランド分解できるか？ (2) 20241202より大きいレイランド数で最小の数を求めよ (3)レイランド分解を実装せよ。言語は問わない。 理工系卒ならチンパフェチ以外ならWolframくらいつかえるでしょう。 尚、Rは不定長整数非対応なので無理。Python使いなら可能だろうが俺にはそのスキルはない。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/367

368: １３２人目の素数さん [sage] 2024/12/02(月) 07:28:59.26 ID:5RqvHzG8 LeylandQ[n_]:=( ymax=Floor@y /. NSolve[2 y^y == n && y>1,y,Reals][[1]]; xmax=Floor@x /. NSolve[x^2+2^x==n && x>1,x,Reals][[1]]; z=Flatten@Table[x^y+y^x,{x,2,xmax},{y,2,ymax}]; ContainsAny[z,{n}] ) LeylandQ[42832853457545958193355601] http://rio2016.5ch.net/test/read.cgi/math/1723152147/368

369: １３２人目の素数さん [sage] 2024/12/02(月) 19:24:47.07 ID:530Brai+ 尿瓶ジジイ、医者板でダンマリ決め込むしかないw http://rio2016.5ch.net/test/read.cgi/math/1723152147/369

370: １３２人目の素数さん [sage] 2024/12/03(火) 14:26:15.87 ID:xACthNhN Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= nn=1234; In[2]:= n=5; In[3]:= m=6; In[4]:= ass2list[ass_] := Select[Table[{key,ass[key]},{key,0,m}],IntegerQ[#[[2]]]&] (* assosiation to list ,key:[0,m] *) In[5]:= xyz=Solve[Mod[x+y+z,m]==0 && 0<=x<=y<=z<=(m-1),{x,y,z},Integers]; In[6]:= t1=Table[{x/.xyz[[n]],y/.xyz[[n]],z/.xyz[[n]]},{n,1,Length@xyz}]; In[7]:= ass=Counts[#]& /@ t1; In[8]:= li=ass2list /@ ass; In[9]:= {q,r}=QuotientRemainder[nn,m]; In[10]:= c=Flatten@{Table[q+1,r],Table[q,m-r]}; In[11]:= m2c[x_] :=( (* mod to how many cases *) i=If[x[[1]]==0,m,x[[1]]]; Binomial[c[[i]],x[[2]]] ) In[12]:= prod[x_] := Product[tmp,{tmp,x}]; In[13]:= cases=Total[prod /@ (m2c /@ # & /@ li)]; In[14]:= cases/Binomial[nn,n] 126691 Out[14]= ----------- 57547841736 http://rio2016.5ch.net/test/read.cgi/math/1723152147/370

371: １３２人目の素数さん [sage] 2024/12/04(水) 00:16:56.33 ID:FPvs5P9c 高校数学スレじゃ誰も構ってもらえず息絶えたみたいだね http://rio2016.5ch.net/test/read.cgi/math/1723152147/371

372: １３２人目の素数さん [sage] 2024/12/04(水) 09:35:44.71 ID:M2J+bJMI (* 1から100までの整数から異なる10個を選び、その合計が5の倍数になる確率を求めなさい。 *) solve[nn_,n_,m_]:=( ass=Counts[#]& /@ Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1]; li=KeyValueMap[List,#]& /@ ass; {q,r}=QuotientRemainder[nn,m]; c=Flatten@{Table[q+1,r],Table[q,m-r]}; m2c[x_] :=( i=If[x[[1]]==0,m,x[[1]]]; Binomial[c[[i]],x[[2]]]); cases=Total[Times@@@ (m2c /@ # & /@ li)]; (* cases=Total[Times@@ #&/@ (m2c /@ # & /@ li)];*) cases/Binomial[nn,n] ) solve[100,10,5] SetPrecision[%,50] http://rio2016.5ch.net/test/read.cgi/math/1723152147/372

373: １３２人目の素数さん [sage] 2024/12/04(水) 16:35:44.55 ID:M2J+bJMI Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= solve[nn_,n_,m_]:=( ass=Counts[#]& /@ Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1]; li=KeyValueMap[List,#]& /@ ass; {q,r}=QuotientRemainder[nn,m]; c=Flatten@{Table[q+1,r],Table[q,m-r]}; m2c[x_] :=( i=If[x[[1]]==0,m,x[[1]]]; Binomial[c[[i]],x[[2]]]); cases=Total[Times@@@ (m2c /@ # & /@ li)]; (* cases=Total[Times@@ #&/@ (m2c /@ # & /@ li)];*) cases/Binomial[nn,n] ) In[2]:= solve[100,10,5] 4555344594 Out[2]= ----------- 22776722969 http://rio2016.5ch.net/test/read.cgi/math/1723152147/373

374: １３２人目の素数さん [sage] 2024/12/05(木) 08:04:52.84 ID:eKN5wIeH >>373高校生相手にバカにされてそんなに楽しい？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/374

375: １３２人目の素数さん [sage] 2024/12/05(木) 12:36:37.74 ID:YJ2FHyON (* 1から2024までの整数から12個を選び(同じ数があってもよい）その合計が5の倍数になる確率を求めなさい。 *) solve[nn_,n_,m_]:=( t1=Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1]; t2=Table[If[#==0,m,#]& /@ t1[[j]],{j,1,Length@t1}]; {q,r}=QuotientRemainder[nn,m]; c=Flatten@{Table[q+1,r],Table[q,m-r]}; Total@Table[n!/Times@@(Values@Counts@t2[[j]]!) Product[c[[i]],{i,t2[[j]]}],{j,1,Length@t2}]/nn^n ) http://rio2016.5ch.net/test/read.cgi/math/1723152147/375

376: １３２人目の素数さん [sage] 2024/12/05(木) 13:46:02.19 ID:YJ2FHyON 数を小さくしてソルバーと総当たり解を照合。 In[3]:= nn=123; In[4]:= n=4; In[5]:= m=5; In[6]:= solve[nn,n,m] 45777326 Out[6]= --------- 228886641 In[7]:= In[7]:= #==0& /@ Mod[Total /@ Tuples[Range[nn],n],m] // Boole // Mean 45777326 Out[7]= --------- 228886641 よさげ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/376

377: １３２人目の素数さん [sage] 2024/12/05(木) 17:56:25.50 ID:ynBzGGEQ >>376 847：１３２人目の素数さん：2024/12/05(木) 17:46:08.46 ID:oVgZjm9p 常識があれば出来る問題 9時～12時 13時～16時の間に上部内視鏡検査を行いたい 内視鏡のカメラは3台あり洗浄に1時間かかります 患者さんに検査前の説明をするのが5分 内視鏡前に喉頭に麻酔するのに5分 患者さんの入れ替えに5分かかります 1件の検査時間が何分で終われば1日に20件以上出来るでしょうか？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/377

378: １３２人目の素数さん [sage] 2024/12/05(木) 20:02:08.98 ID:Kxn4SMrl >>377 内視鏡洗浄に１時間かかるわけがない。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/378

379: １３２人目の素数さん [sage] 2024/12/05(木) 20:34:49.98 ID:ynBzGGEQ 見逃したくさんありそうだし不潔だねww http://rio2016.5ch.net/test/read.cgi/math/1723152147/379

380: １３２人目の素数さん [sage] 2024/12/06(金) 04:11:58.33 ID:YSI2tqZx 検査時間が５分をきると見逃しが増えるというデータがある。 俺はだいたい７分だな。 鏡内侍という洗浄機は鉗子孔の自動ブラシ洗浄機能も備えていて洗浄時間短縮に寄与する。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/380

381: １３２人目の素数さん [sage] 2024/12/06(金) 06:39:00.36 ID:ujP1NFyB R # 2つの日付時刻を指定 2024/12/05(木) 06:04:29.15 date1 <- as.POSIXct("2024-12-06 00:00:00") date2 <- as.POSIXct("2024-12-05 06:04:29.15") # 日付時刻の差を秒単位で計算 options(digits=10) (interval <- difftime(date2, date1, units = "secs")) Wolfram date1=DateObject[{2024,12,5,6,4,29.15}] date2=DateObject[{2024,12,6,0,0, 0.00}] dd=DateDifference[date1,date2,"Seconds"] SetPrecision[dd,10] http://rio2016.5ch.net/test/read.cgi/math/1723152147/381

382: １３２人目の素数さん [sage] 2024/12/06(金) 07:45:05.86 ID:vLOIX3xc >>380 7分だと1日20件無理じゃん 嘘ついたってこと？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/382

383: １３２人目の素数さん [sage] 2024/12/06(金) 07:58:39.63 ID:Ur8HGrQ0 >>382 健診なら１時間に5件、半日で20件くらい普通。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/383

384: １３２人目の素数さん [sage] 2024/12/06(金) 08:02:11.85 ID:Ur8HGrQ0 昔の忙しいバイト先でsedationで検診やっていたときは 検査後の説明は別の医師がやっていた。そうしないと数がはけない。 最近は数が増えて検査医増やして2列同時並行にしていると言ってたな。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/384

385: １３２人目の素数さん [sage] 2024/12/06(金) 08:03:03.60 ID:Ur8HGrQ0 >>383 内視鏡は7本、今はもっと増えているかも。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/385

386: １３２人目の素数さん [sage] 2024/12/06(金) 19:31:36.33 ID:qbKrrjGS >>383 入れ替えも含めてそんなにできるわけないだろ 早期癌見逃すだろ絶対 脳内医療もいい加減にしろ http://rio2016.5ch.net/test/read.cgi/math/1723152147/386

387: １３２人目の素数さん [sage] 2024/12/07(土) 01:03:32.31 ID:IqLiU+V6 >>386 検診部に内視鏡センターを置いているような施設では普通。内視鏡スレではベルトコンベア内視鏡と称されていた。 受付説明、前処置、検査、内視鏡洗浄を別の部屋で同時並行でできる設備とそれを運営できる熟練スタッフが必要。 所見記載の電子カルテのフォーマットも熟れている。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/387

388: １３２人目の素数さん [sage] 2024/12/07(土) 01:26:36.86 ID:BxWxOKoF >>387 病気見逃しそうに関してはダンマリかよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/388

389: １３２人目の素数さん [sage] 2024/12/07(土) 05:58:16.00 ID:78hDh7jB 内視鏡で観察していた時間が7分、説明に要した時間が7分でした所要時間は？ ある底辺シリツ医の場合：14分 俺の場合：７分 ∵俺は観察中にリアルタイムで説明しているから。 こういう工夫で１時間5人の枠はこなせる。 観察時間の短縮でなく、それ以外の作業を同時並行することで全所要時間を短縮。 そういうことすら理解できないから、Fランシリツにしか入れないのだろう。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/389

390: １３２人目の素数さん [sage] 2024/12/07(土) 08:16:29.20 ID:BxWxOKoF >>389 42：卵の名無しさん：2024/12/07(土) 07:01:36.65 ID:+iViUeCm >>39 7分で観察出来ても1時間で5件は無理だっつーの そもそも全員7分でいけるわけないだろ生検とか必要な人もいるんだし 他に医者がいれば話は別だがお前しかおらんのだろ？（設定上） そもそもレポートとかどうすんだよ 咽頭麻酔をやらんと反射強い患者とか挿入出来ないよな？それもコメディカルにやらせるつもりかwww そもそもだが、お前外来の話とか全くしないが生検の結果とかは何処で説明してるんだ？ わざわざ他から呼んできてるんだから常勤の消火器内科いないってことだよね？ 生検して放置してるってこと？ 進行癌見つけたとかほざいてたが紹介は？紹介状書かずに見つけて放置してるの？そそくさと11時にタクシーで帰路についてたみたいだけど時間的にそんなことしてないよね？ 素人だからわからんかも知れんが別に内視鏡やるだけが医者の仕事じゃねーわけよ 他の仕事もあんだから全部1人でこなすのは無理なんだよ医者じゃないくせにわかった口をきくなボケ http://rio2016.5ch.net/test/read.cgi/math/1723152147/390

391: １３２人目の素数さん [sage] 2024/12/07(土) 10:48:28.71 ID:xtC19jyX m=50+1 n=2^Ceiling[Log[2,m]]; t1=Table[Reverse@IntegerDigits[x,2],{x,1,n-1}]; ans=Table[{},Log[2,n]]; For[i=1,i<m,i++,AppendTo[ans[[#]],i]& /@ Flatten@Position[t1[[i]],1]]; res=Reverse[ans]; MatrixForm@res http://rio2016.5ch.net/test/read.cgi/math/1723152147/391

392: １３２人目の素数さん [sage] 2024/12/07(土) 12:16:42.64 ID:xtC19jyX ある仮想疾患Fラン病（別名：チンパンフェチ病）を考える。 実験のために抗原陰性の血清50検体を準備していたところ、手違いで抗原陽性の検体が１つ紛れて51検体になった。 検体量は十分あるため抗原の有無の検査を繰り返すことは可能である。 複数の検体を混ぜて検査することも可能である。 検査１回に10万円かかるとする。 最低の費用で抗原陽性の検体を同定する方法を記載せよ。 Rで検体グループ分けを表示させる m=50+1 g=ceiling(log2(m)) grp=vector("list",length=g) f=Vectorize(\(x) dec2nw(x,2,g)) b=t(f(1:(m-1))) for(i in 1:nrow(b)){ for(k in which(b[i,]==1)) grp[[k]]=c(grp[[k]],i) } grp http://rio2016.5ch.net/test/read.cgi/math/1723152147/392

393: １３２人目の素数さん [sage] 2024/12/07(土) 15:19:12.96 ID:BxWxOKoF >>392 医者板の正論は一切反論できずにダンマリ決め込んでるみたいだねw 素人にも総ツッコミじゃねーかw http://rio2016.5ch.net/test/read.cgi/math/1723152147/393

394: １３２人目の素数さん [sage] 2024/12/08(日) 06:14:12.29 ID:DaR/tBAf 実験のために抗原陰性の血清2024検体を準備していたところ、手違いで抗原陽性の検体が１つ紛れて2025検体になった。 検体量は十分あるため抗原の有無の検査を繰り返すことは可能である。 複数の検体を混ぜて検査することも可能である。 抗原検査機器は同時並行で複数の検体を検査できるが、1回しか稼働できない。 また検査費用は検体１つにつき10万円かかるとする。 最低の費用で抗原陽性の検体を同定する方法を記載せよ。 Clear[{m,n,t1,ans,solve,re,result,x}] solve[m_]:=( (* m:総数検体数 *) n=2^Ceiling[Log[2,m]]; t1=Table[Reverse@IntegerDigits[x,2],{x,1,n-1}]; ans=Table[{},Log[2,n]]; For[i=1,i<m,i++,AppendTo[ans[[#]],i]& /@ Flatten@Position[t1[[i]],1]]; Reverse[ans] (* 混合検体グループの構成 *) ) re=solve[2025]; Table[Short@re[[i]],{i,1,Length[re]}] samples=2025; x=RandomChoice[Range[samples],1][[1]] (* 陽性検体番号*) result=Table[Boole@MemberQ[re[[i]],x],{i,Length[re]}] (* グループ毎の結果 1:陽性 0:陰性 *) ans=If[Total@result==0,samples,FromDigits[result,2]] (* 全グループ陰性なら2025,それ以外なら２進法を10進法変換値*) ans == x http://rio2016.5ch.net/test/read.cgi/math/1723152147/394

395: １３２人目の素数さん [sage] 2024/12/08(日) 06:18:06.63 ID:tGDQQ3+X 内視鏡の件でフルボッコ、リファンピシンでも突っ込まれて保険適応やらカテーテルの件でも無知晒して… 偽医者か無能医者かわからんがよく恥ずかしく無いよな http://rio2016.5ch.net/test/read.cgi/math/1723152147/395

396: １３２人目の素数さん [sage] 2024/12/08(日) 06:29:47.31 ID:5tcxYECw >>394 結局内視鏡の件は論破されてダンマリかよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/396

397: １３２人目の素数さん [sage] 2024/12/08(日) 06:35:45.62 ID:+/92f6rf 論破されてることすら理解出来ない低知能クンだからね 医者東大コンプなのに高校数学すら分からなくて、頑張って勉強したwolframを使いたいけど、同じ問題でパラメーター変えることしか出来ない低脳なんでしょ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/397

398: １３２人目の素数さん [sage] 2024/12/08(日) 16:12:06.29 ID:5tcxYECw >>394 尿瓶ジジイ素人にも論破されてダンマリかよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/398

399: １３２人目の素数さん [sage] 2024/12/08(日) 20:14:35.59 ID:jwOd3Bh7 (* 実験のために抗原陰性の血清2024検体を準備していたところ、手違いで抗原陽性の検体が１つ紛れて2025検体になった。 抗原陽性の検体を同定する *) solve[m_]:=( (* m:総数検体数 *) n=2^Ceiling[Log[2,m]]; t1=Table[Reverse@IntegerDigits[x,2],{x,1,n-1}]; ans=Table[{},Log[2,n]]; For[i=1,i<m,i++,AppendTo[ans[[#]],i]& /@ Flatten@Position[t1[[i]],1]]; Reverse[ans] (* 混合検体グループの構成 *) ) re=solve[2025]; Table[Short@re[[i]],{i,1,Length[re]}] (* 網羅して確認 *) samples=2025; re=solve[samples]; verify[x_]:=( bin=Table[Boole@MemberQ[re[[i]],x],{i,Length[re]}];(* グループ毎の結果 1:陽性 0:陰性 *) pos=Flatten@Position[bin,1]; neg=Flatten@Position[bin,0]; Complement[Intersection @@ re[[pos]],Flatten@re[[neg]]]=={x} ) AllTrue[Range[samples-1],verify] http://rio2016.5ch.net/test/read.cgi/math/1723152147/399

400: １３２人目の素数さん [sage] 2024/12/08(日) 20:17:45.04 ID:Yt2vU9nT >>399 こっちではコソコソ書き込みかよ？素人高校生にボコられて恥ずかしくないのか？w http://rio2016.5ch.net/test/read.cgi/math/1723152147/400

401: １３２人目の素数さん [sage] 2024/12/08(日) 21:21:32.82 ID:jwOd3Bh7 >>396 同時並行すら理解できないのが裏口容疑者 http://rio2016.5ch.net/test/read.cgi/math/1723152147/401

402: １３２人目の素数さん [sage] 2024/12/08(日) 22:22:28.54 ID:Yt2vU9nT >>401 検査しながら説明するとかほざいてたやつ？ 麻酔はアンタがするんだろ？ 検査中は質問とかできないしそんなのできる訳ないだろアホかよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/402

403: １３２人目の素数さん [sage] 2024/12/09(月) 01:28:33.57 ID:uk+hEKSA >>401 その場しのぎで言い訳ばかりwww wolframとか関係ない話題で言い訳にすらなってないな 医者コンプみたいだが、高校すら卒業出来ないレベルwww 受験コンプなのかwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/403

404: １３２人目の素数さん [sage] 2024/12/09(月) 03:01:49.25 ID:qq7wIWnX スレタイも読めないのに自称医者とか笑わせるよねw http://rio2016.5ch.net/test/read.cgi/math/1723152147/404

405: １３２人目の素数さん [sage] 2024/12/09(月) 20:44:15.02 ID:IkiMxMea >>401 尿瓶ジジイいつまでダンマリ決め込んでんだよ こっちじゃいくらでもバカにしてやるって言ってんだよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/405

406: １３２人目の素数さん [sage] 2024/12/10(火) 02:54:56.28 ID:/AcDe8Pz solve[x_]:=( rek=Solve[(2a+1)/(a+1) (2b+1)/(b+1) (2c+1)/(c+1) (2d+1)/(d+1) (2e+1)/(e+1) == x && 0<=a<=b<=c<=d<=e<=100,{a,b,c,d,e},Integers]; pow=Values[rek]; n=Times@@(Reverse[Prime[Range[Length[#]]]]^#)& /@ pow; Min[n] ) Table[solve[x],{x,{3,5,7,9,11,13,15,17}}] {144, 3600, 1511654400000000, 1587600, 13168189440000, 177844628505600000000, 192099600, 76839840000} http://rio2016.5ch.net/test/read.cgi/math/1723152147/406

407: １３２人目の素数さん [sage] 2024/12/10(火) 05:03:57.10 ID:/AcDe8Pz >>405 これできた？底辺シリツには無理だろw 実験のために抗原陰性の血清2024検体を準備していたところ、手違いで抗原陽性の検体が１つ紛れて2025検体になった。 検体量は十分あるため抗原の有無の検査を繰り返すことは可能である。 複数の検体を混ぜて検査することも可能である。 抗原検査機器は同時並行で複数の検体を検査できるが、1回しか稼働できない。 また検査費用は検体１つにつき10万円かかるとする。 最低の費用で抗原陽性の検体を同定する方法を記載せよ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/407

408: １３２人目の素数さん [sage] 2024/12/10(火) 05:56:30.17 ID:/AcDe8Pz 【問題】1から2024までの整数から12個を選び（同じ数を選んでもよい）、その合計が n の倍数になる確率を分数で求めよ。 def count_combinations(n, k, mod): dp = [[0] * mod for _ in range(k + 1)] dp[0][0] = 1 for _ in range(k): new_dp = [[0] * mod for _ in range(k + 1)] for j in range(1, n + 1): for t in range(mod): new_dp[_ + 1][(t + j % mod) % mod] += dp[_][t] dp = new_dp return dp[k][0] n = 2024 k = 12 mod = 10 result = count_combinations(n, k, mod) print(f"合計が10の倍数になる組み合わせの数: {result}") http://rio2016.5ch.net/test/read.cgi/math/1723152147/408

409: １３２人目の素数さん [sage] 2024/12/10(火) 08:06:33.22 ID:ThoL421/ >>407 こっちではレス乞食諦めてないんだね 高校生にも相手にされないのにw で、内視鏡の件は素人にも完全論破されてダンマリ決め込んでるってことね スレタイも読めないから相手にされないってわざわざ親切に教えてくれてるのに感謝もなしかよ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/409

410: １３２人目の素数さん [sage] 2024/12/10(火) 08:07:33.84 ID:ThoL421/ 71：卵の名無しさん：2024/12/10(火) 07:45:14.38 ID:m2CrVHD7 尿瓶ジジイさぁ ルールは守ろうぜ高校生に怒られてんじゃん そんなんで誰がお前を医者だと信じんだよ こんな糞スレならいくら荒らしても良いけど他所様に迷惑かけちゃ駄目だろ まずは謝ろうな？それが社会人としての最低限のマナーだよ 本当の事ばっかり言ってゴメンな お前が医者のフリしても今度はもう少し優しく間違いを指摘してあげるから戻っておいで http://rio2016.5ch.net/test/read.cgi/math/1723152147/410

411: １３２人目の素数さん [sage] 2024/12/10(火) 17:03:31.30 ID:0S3xgTh9 >>407 底辺シリツ医とか誰だよwww 医者コンプ大学入試コンプは高校中退相当だぞwww 少しは勉強しろよwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/411

412: １３２人目の素数さん [sage] 2024/12/10(火) 18:43:25.19 ID:h/Odz0/B >>411 生まれてから死ぬまで裕福な私立医大医者が羨ましくて仕方のない様子 http://rio2016.5ch.net/test/read.cgi/math/1723152147/412

413: １３２人目の素数さん [sage] 2024/12/11(水) 07:05:00.51 ID:qk9aTmTZ 　 　 　 　 　 　 定 　 公 　 こ 　 o 　 無 　 な 　 　 　 　 　 理 　 式 　 れ 　 n 　 料 　 い 　 　 　 　 は 　 は 　 も 　 　 　 で 　 ね 　 　 　 ツ 　 プ 　 ツ 　 R 　 使 　 。 　 　 ー 　 ロ 　 ー 　 　 　 え 　 　 ル 　 グ 　 ル 　 W 　 る 　 、 　 ラ 　 ） 　 o 　 時 　 　 ム 　 P 　 l 　 代 　 （ 　 y 　 f 　 。 　 　 t 　 r 　 使 　 h 　 a 　 わ 　 　 m 　 な 　 も 　 い 　 　 手 　 は 　 　 http://rio2016.5ch.net/test/read.cgi/math/1723152147/413

414: １３２人目の素数さん [sage] 2024/12/11(水) 09:02:45.69 ID:qk9aTmTZ " 注射液8本のうち2本が致死的な毒薬である場合 ネズミ1: 注射液1, 2, 3, 4 ネズミ2: 注射液1, 2, 5, 6 ネズミ3: 注射液1, 3, 5, 7 に記載された投与法で実験したら全部のネズミが死亡してしまった。 可能な２つの毒薬の組み合わせをすべて列挙せよ。 " rm(list=ls()) mat=matrix( c(1, 2, 3, 4, 1, 2, 5, 6, 1, 3, 5, 7),nrow=3,by=TRUE) mat cm=t(combn(8,2)) ; cm lost_rats=\(y) (apply(mat,1, \(x) y[1] %in% x) | apply(mat,1, \(x) y[2] %in% x)) |> which() |> sum() lost=apply(cm,1,lost_rats) re=cbind(cm,lost) tmp1=re[re[,3]==6,1:2] ; tmp1 tmp2=cbind(1:7,8) rbind(tmp1,tmp2) |> unique() http://rio2016.5ch.net/test/read.cgi/math/1723152147/414

415: １３２人目の素数さん [sage] 2024/12/11(水) 10:04:45.21 ID:qk9aTmTZ " 注射液8本のうち2本が致死的な毒薬である場合 ネズミ1: 注射液1, 2, 3, 4 ネズミ2: 注射液1, 2, 5, 6 ネズミ3: 注射液1, 3, 5, 7 に記載された投与法で実験したら全部のネズミが死亡してしまった。 可能な２つの毒薬の組み合わせをすべて列挙せよ。 この投与法で２個の毒薬が特定できる場合をすべて求めて そのときの毒薬の組み合わせと合わせて列挙せよ。 " rm(list=ls()) mat=matrix( c(1, 2, 3, 4, 1, 2, 5, 6, 1, 3, 5, 7),nrow=3,by=TRUE) cm=t(combn(8,2)) ; cm lost=\(y){ tmp1=(apply(mat,1, \(x) y[1] %in% x) | apply(mat,1, \(x) y[2] %in% x)) tmp2=as.integer(tmp1) tmp2 %*% c(1,2,4)|> as.vector() -> tmp3 tmp3 } i=apply(cm,1,lost) ; i cbind(cm,i) lapply(1:7,\(x) cm[i==x,]) http://rio2016.5ch.net/test/read.cgi/math/1723152147/415

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.015s