|
Mathematica遣いに大切なこと |
|
とりあえず全部並べて11111と合同なものを除きます。
lawlist = {0}; Do[ Do[ Do[ Do[ Do[ x = 10000 a + 1000 b + 100 c + 10 d + e; If[Mod[x, 11111] == 0, x = 0, x = x]; lawlist = {lawlist, x} , {e, 5}] , {d, 5}] , {c, 5}] , {b, 5}] , {a, 5}] numlist = Sort[Cases[Flatten[lawlist], Except[0]]] Part[numlist, 1248] |
|
5月14日（木） 15:41:34
34458 |