Revision as of 15:05, 20 January 2021 (view source) Bastet (talk \| contribs) (+Maple) ← Older edit		Revision as of 15:15, 20 January 2021 (view source) Bastet (talk \| contribs) m (→‎{{header\|Maple}}) Newer edit →
Line 3,061: 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;~~ # [1, 105, 385, 1365, 1785, 2805, 3135, 6545, 6545, 10465~~]</lang>~~, 10465, ▼ ~~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)];~~ ▲# [1, 105, 385, 1365, 1785, 2805, 3135, 6545, 6545, 10465]</lang> =={{header\|Nim}}==

Cyclotomic polynomial: Difference between revisions

Cyclotomic polynomial (view source)