高校数学の質問スレ（医者・東大卒専用） Part438

高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除ﾚｽ栞

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

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

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

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

ぬこの手ぬこTOP 0.039s