{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 " " 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "1/5 mod 21;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"#<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "5*17 mod 21;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\" \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "1/3 mod 21;" }}{PARA 8 "" 1 "" {TEXT -1 42 "Error, the modular inverse does not exist\n" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "1/6 mod 21;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 8 "" 1 "" {TEXT -1 42 "Error, the mod ular inverse does not exist\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "2 mod 21, 4 mod 21;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"#\"\" %" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "seq( 2^k mod 21, k=1.. 21);" }}{PARA 11 "" 1 "" {XPPMATH 20 "67\"\"#\"\"%\"\")\"#;\"#6\"\"\"F #F$F%F&F'F(F#F$F%F&F'F(F#F$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "seq( 3^k mod 21, k=1..21);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}{PARA 11 "" 1 "" {XPPMATH 20 "67\"\"$\"\"*\"\"'\"#=\"#7\"#:F#F$F%F &F'F(F#F$F%F&F'F(F#F$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 " seq( 4^k mod 21, k=1..21);" }}{PARA 11 "" 1 "" {XPPMATH 20 "67\"\"%\"# ;\"\"\"F#F$F%F#F$F%F#F$F%F#F$F%F#F$F%F#F$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "seq( 5^k mod 21, k=1..21);" }}{PARA 11 "" 1 "" {XPPMATH 20 "67\"\"&\"\"%\"#?\"#;\"#<\"\"\"F#F$F%F&F'F(F#F$F%F&F'F(F#F $F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(numtheory);" }} {PARA 7 "" 1 "" {TEXT -1 69 "Warning, the protected name order has bee n redefined and unprotected\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7P%&G IgcdG%)bigomegaG%&cfracG%)cfracpolG%+cyclotomicG%)divisorsG%)factorEQG %*factorsetG%'fermatG%)imagunitG%&indexG%/integral_basisG%)invcfracG%' invphiG%*issqrfreeG%'jacobiG%*kroneckerG%'lambdaG%)legendreG%)mcombine G%)mersenneG%*minkowskiG%(mipolysG%%mlogG%'mobiusG%&mrootG%&msqrtG%)ne arestpG%*nthconverG%)nthdenomG%)nthnumerG%'nthpowG%&orderG%)pdexpandG% $phiG%#piG%*pprimrootG%)primrootG%(quadresG%+rootsunityG%*safeprimeG%& sigmaG%*sq2factorG%(sum2sqrG%$tauG%%thueG" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 7 "phi(2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "phi(12849);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#\"%k&)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ifactor(12849);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%!G6#\"\"$ \"\"\"-F%6#\"%$G%F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "phi(8 );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "gcd(6,17);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\" \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "gcd(6,18);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "15 0 0" 10 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }