FactorInteger[60]
{{2,2},{3,1},{5,1}}
3*5
15
f01[num_,order_] := Module[ {a1,len},
a1 = FactorInteger[num];
Print["a1=",a1];
len = Length[a1];
Print["len=",len];
]
f01[60,2]
a1={{2,2},{3,1},{5,1}}
len=3
f03[num_,order_] := Module[ 
{a1,len,s1={},x1},
a1 := FactorInteger[num];
Print["a1=",a1];
len := Length[a1];
Print["len=",len];
For[ i=1, i<=len, , 
x1 := a1[[i]][[1]];
Print["x1=",x1]
 AppendTo[s1,x1];
++i;
]
Print["s1=",s1]
]
f03[60,2]
a1={{2,2},{3,1},{5,1}}
len=3
x1=2
x1=3
x1=5
s1={2,3,5}
Null^2
Clear[f03]
f03[20,2]
f03[20,2]
f04[num_,order_] := Module[ 
{a1,len,s1={},x1,x1len,i,k,kmax},
a1 := FactorInteger[num];
Print["a1=",a1];
len := Length[a1];
Print["len=",len];
For[ i=1, i<=len, , 
x1 := a1[[i]][[1]];
x1len := a1[[i]][[2]];
Print["x1=",x1];
kmax = Min[x1len,order];
Print["kmax=",kmax];
For [ k=1, k<=kmax, ,
 AppendTo[s1,x1];
++k;
];
++i;
];
Print["s1=",s1]
]
f04[60,2]
a1={{2,2},{3,1},{5,1}}
len=3
x1=2
kmax=2
x1=3
kmax=1
x1=5
kmax=1
s1={2,2,3,5}