38 lines
1.2 KiB
Text
38 lines
1.2 KiB
Text
with(NumberTheory):
|
|
for n to 30 do lprint(Phi(n,x)) od:
|
|
|
|
x-1
|
|
x+1
|
|
x^2+x+1
|
|
x^2+1
|
|
x^4+x^3+x^2+x+1
|
|
x^2-x+1
|
|
x^6+x^5+x^4+x^3+x^2+x+1
|
|
x^4+1
|
|
x^6+x^3+1
|
|
x^4-x^3+x^2-x+1
|
|
x^10+x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1
|
|
x^4-x^2+1
|
|
x^12+x^11+x^10+x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1
|
|
x^6-x^5+x^4-x^3+x^2-x+1
|
|
x^8-x^7+x^5-x^4+x^3-x+1
|
|
x^8+1
|
|
x^16+x^15+x^14+x^13+x^12+x^11+x^10+x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1
|
|
x^6-x^3+1
|
|
x^18+x^17+x^16+x^15+x^14+x^13+x^12+x^11+x^10+x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1
|
|
x^8-x^6+x^4-x^2+1
|
|
x^12-x^11+x^9-x^8+x^6-x^4+x^3-x+1
|
|
x^10-x^9+x^8-x^7+x^6-x^5+x^4-x^3+x^2-x+1
|
|
x^22+x^21+x^20+x^19+x^18+x^17+x^16+x^15+x^14+x^13+x^12+x^11+x^10+x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1
|
|
x^8-x^4+1
|
|
x^20+x^15+x^10+x^5+1
|
|
x^12-x^11+x^10-x^9+x^8-x^7+x^6-x^5+x^4-x^3+x^2-x+1
|
|
x^18+x^9+1
|
|
x^12-x^10+x^8-x^6+x^4-x^2+1
|
|
x^28+x^27+x^26+x^25+x^24+x^23+x^22+x^21+x^20+x^19+x^18+x^17+x^16+x^15+x^14+x^13+x^12+x^11+x^10+x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1
|
|
x^8+x^7-x^5-x^4-x^3+x+1
|
|
|
|
PhiSet:=[seq(map(abs,{coeffs(Phi(k,x),x)}),k=1..15000)]:
|
|
[seq(ListTools:-SelectFirst(s->member(n,s),PhiSet,output=indices),n=1..20)];
|
|
#[1, 105, 385, 1365, 1785, 2805, 3135, 6545, 6545, 10465, 10465,
|
|
# 10465, 10465, 10465, 11305, 11305, 11305, 11305, 11305, 11305]
|