4 lines
112 B
Text
4 lines
112 B
Text
n = 2;
|
|
While[n < 100,
|
|
Print[Row[Riffle[Flatten[Map[Apply[ConstantArray, #] &, FactorInteger[n]]],"*"]]];
|
|
n++]
|