Canonical form of list of Integers

Question

How can I get the canonical form of a list? I tried

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

resulting in

{Superscript[2,1]\[CenterDot]Superscript[5,1], 
 CenterDot[Superscript[11,1]]}

Output for 10 is OK. But for case 11 the word "CenterDot" is in the output. How do I get rid of it? Or is there a more elegant way to "canonize" list or lists of integers?

Related link: https://mathematica.stackexchange.com/questions/180098/how-to-avoid-applying-cross-to-a-single-argument — matrix42, Dec 14 '19 at 07:33

score 6 · Answer 1 · answered Dec 14 '19 at 04:07

6

in 11.3 it works.

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

answered Dec 14 '19 at 04:07

AsukaMinato

9,758
1
14
40

OK! Right! I got it! Thank you! – user57467 Dec 14 '19 at 04:13

score 6 · Accepted Answer · answered Dec 14 '19 at 06:28

6

If you add the definition

CenterDot[u_] := u

then

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

answered Dec 14 '19 at 06:28

m_goldberg

107,779
16
103
257

Canonical form of list of Integers

2 Answers2