11 lines
330 B
Text
11 lines
330 B
Text
ClearAll[rad];
|
|
|
|
primeFactors[n_Integer] := First@Transpose@FactorInteger[n];
|
|
rad[n_Integer] := Times @@ primeFactors[n];
|
|
|
|
Print[TableForm[Partition[rad /@ Range[50], 10] ,
|
|
TableAlignments -> Right]];
|
|
Print[];
|
|
Print[TableForm[
|
|
List @@@ Normal@CountsBy[Length[primeFactors[#]] &][Range[10^6]] ,
|
|
TableAlignments -> Right]];
|