Cyclotomic polynomial: Difference between revisions
Content added Content deleted
(+Maple) |
|||
Line 3,061: | Line 3,061: | ||
x^8+x^7-x^5-x^4-x^3+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)]: |
|||
PhiWithN:=proc(n) |
|||
[seq(ListTools:-SelectFirst(s->member(n,s),PhiSet,output=indices),n=1..20)]; |
|||
local k,c,s; |
|||
⚫ | |||
for k from 1 do |
|||
# 10465, 10465, 10465, 11305, 11305, 11305, 11305, 11305, 11305]</lang> |
|||
s:={coeffs(Phi(k,x),x)}; |
|||
if member(n,s) or member(-n,s) then return(k) fi |
|||
od |
|||
end: |
|||
[seq(PhiWithN(n),n=1..10)]; |
|||
⚫ | |||
=={{header|Nim}}== |
=={{header|Nim}}== |