Canonical form of list of Integers

in 11.3 it works.

a = FactorInteger[Range[10, 11]]
b = Apply[Superscript, a, {2}]
f = If[Length@# == 1, #[[1]], CenterDot @@ #] &;
f /@ b

If you add the definition

CenterDot[u_] := u

then

a = FactorInteger[Range[1, 11]];
b = Apply[Superscript, a, {-2}];
CenterDot @@@ b

factorizations

Related