Procedure from library finvar.lib (see finvar_lib).
finvar.lib
cyclotomic(i); i integer > 0
the i-th cyclotomic polynomial (type <poly>) as one in the first ring variable
x^i-1 is divided by the j-th cyclotomic polynomial where j takes on the value of proper divisors of i
Example:
LIB "finvar.lib"; ring R=0,(x,y,z),dp; print(cyclotomic(25)); → x20+x15+x10+x5+1