例 x^(5^12)-1=(x-1)*Product(Sum(x^(i*m^j),i=0..4),j=0..11)

>

> m:=3:
ithprime_m:=ithprime(m);
n:=12;
power:=ithprime_m^n;

[Maple Math]

[Maple Math]

[Maple Math]

> x^(ithprime(m)^n)-1=sort(factor(x^(ithprime(m)^n)-1));

[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]

> (x-1)*product(sum(x^(i*ithprime(m)^j),i=0..ithprime(m)-1),j=0..n-1):
(x-1)*Product(Sum(x^(i*ithprime(m)^j),i=0..ithprime(m)-1),j=0..n-1)=sort(normal(%));

[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]
[Maple Math]

> (x-1)*Product(Sum(x^(i*ithprime(m)^j),i=0..ithprime(m)-1),j=0..n-1)=normal(expand(rhs(%)));

[Maple Math]