例  x^(7^10)+1=(x+1)*Product(Sum((-x)^(i*m^j),i=0..6),j=0..9)

> m:=4:
ithprime_m:=ithprime(m);
n:=10;
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]
[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]
[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]