萌新求带！请编程( mathematica)把一个8位数分解成素数的乘积，要求自己编写分解程序，不能直接用软件的命令如FactorInteger等来分解 ，注意这里可以用表表示整数的分解，例如100={{2,2},{5,2}}

好难啊！

n = 70257333;
s = 0;
If[Mod[n, 2] == 0, b = {2}, b {}];
For[i = 2, i < n, i++，
If[Mod[n, i] == 0 ,
For[j = 2, j < i, j++,
If[Mod[i, j] == 0 , s++] ];
If[s == 0, AppendTo[b, i]]];
s = 0];
d = Length[b];
m = 0;
For[t = 1, t <= d, t++,
For[k = 1, k < 5, k++,
If[Mod[n, b[[t]]^k] == 0, m++]];
b[[t]] = {b[[t]], m};
m = 0];
晕了，不会了