|
mathematica遣い |
|
20*20の約数の表みたいなものを想像しながら条件に合うものを探すプログラムです。
yakusuu = Divisors[2^10 3^10]; x = 0; For[i = 0, i < 21, i++, For[j = 0, j < 21, j++, a = 2^i 3^j; If[MemberQ[yakusuu, a] == True, x = x, If[a < 2^10 3^10, x = x + 1, x = x]] ]] Print[x] |
|
4月23日（木） 12:26:13
34376 |