{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 3 }{PSTYLE "Wa rning" -1 7 1 {CSTYLE "" -1 -1 "Times" 1 10 0 0 255 1 2 2 2 2 2 1 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 2 }{PSTYLE "_pstyle7" -1 200 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 } {PSTYLE "_pstyle6" -1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 0 2 2 2 2 0 0 0 1 }1 3 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle5" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 10 0 0 255 1 2 2 2 2 2 1 0 0 0 1 } 1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle4" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 0 2 2 2 2 0 0 0 1 }3 3 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle3" -1 204 1 {CSTYLE "" -1 -1 "Times" 1 12 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 } {PSTYLE "_pstyle2" -1 205 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle1" -1 206 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }3 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "Times" 1 10 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading \+ 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 0 0 0 1 } 1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE " " -1 -1 "Times" 1 12 0 0 1 1 2 2 2 2 2 2 0 0 0 1 }3 3 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Auth or" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1 10 1 {CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "L eft Justified Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 3 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed \+ Width" -1 17 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 2 2 2 2 2 1 0 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Ti mes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 5 } {PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 10 255 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "Diagnosti c" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 128 64 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "R3 Font 2" -1 207 1 {CSTYLE "" -1 -1 "Courier" 1 11 0 128 128 1 2 1 2 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "R3 Font 0" -1 208 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 128 0 128 1 2 1 2 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 0 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle258" -1 209 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }3 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle12" -1 210 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 1 1 2 2 2 2 2 2 0 0 0 1 }1 3 0 0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "LaTeX" -1 32 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 } {CSTYLE "Maple Comment" -1 21 "Courier" 0 1 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold" -1 5 "Times" 0 1 0 0 0 0 0 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined" -1 44 "Times" 1 12 0 0 0 0 0 0 1 2 2 2 0 0 0 1 }{CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Times" 1 12 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times" 0 1 0 0 0 0 0 0 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small" -1 201 "Times" 0 1 0 0 0 0 1 0 2 2 2 2 0 0 0 1 }{CSTYLE "Help Heading" -1 26 "" 1 14 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" -1 40 "Times" 1 12 0 0 0 0 1 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Courier" 0 1 0 0 0 1 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "2D Math Small" -1 7 "Times" 0 1 0 0 0 0 0 0 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Italic" -1 43 "Times" 1 12 0 0 0 0 1 0 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 0 0 0 0 2 2 2 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times" 1 10 0 0 0 0 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "" 0 1 0 128 128 1 2 0 1 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "" 1 10 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 0 1 255 0 0 1 0 0 2 2 1 2 0 0 0 1 }{CSTYLE "Help Maple Name" -1 35 "" 0 1 104 64 92 1 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Italic" -1 42 "Times" 1 12 0 0 0 0 1 0 0 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Bold" -1 41 "Times" 1 12 0 0 0 0 0 1 1 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Help Fixed" -1 23 "Courier" 1 10 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 0 0 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic" -1 3 "Times" 0 1 0 0 0 0 1 0 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 31 "" 0 1 0 128 128 1 1 0 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math Symbol 2" -1 16 "Times" 0 1 0 0 0 0 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Text" -1 28 "" 1 8 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{CSTYLE "Help Notes" -1 37 "" 0 1 0 0 0 1 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Times" 1 12 0 0 0 0 0 1 0 2 2 2 0 0 0 1 }{CSTYLE "Help Menus" -1 36 "" 0 1 0 0 0 1 0 1 0 2 2 2 0 0 0 1 } {CSTYLE "_cstyle256" -1 202 "Times" 1 24 0 0 0 0 0 2 0 2 2 2 0 0 0 1 } {CSTYLE "2D Comment" -1 18 "Times" 0 1 0 0 0 0 0 0 2 2 2 2 0 0 0 1 } {CSTYLE "Help Variable" -1 25 "Courier" 0 1 0 0 0 1 2 2 0 2 2 2 0 0 0 1 }{CSTYLE "_cstyle2" -1 203 "Times" 1 10 0 0 255 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle1" -1 204 "Times" 1 24 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold Small" -1 10 "Times" 0 1 0 0 0 0 0 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 205 "" 0 1 0 0 0 0 1 2 0 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Courier" 0 1 0 0 0 1 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "_pstyle8" -1 211 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }3 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle 3" -1 206 "Times" 1 24 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle9" -1 212 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 } 0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle10" -1 213 1 {CSTYLE "" -1 -1 "Times" 1 12 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle11" -1 214 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 0 2 2 2 2 1 0 0 1 }3 3 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "_pstyle13" -1 215 1 {CSTYLE "" -1 -1 "Times" 1 10 0 0 255 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "_cstyle4" -1 207 "Times" 1 10 0 0 255 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle14" -1 216 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 0 2 2 2 2 1 0 0 1 }1 3 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle15" -1 217 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle16" -1 218 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 211 "" 0 "" {TEXT -1 31 " \+ " }{TEXT -1 1 " " }{TEXT 206 28 "USING MAPLE IN NUMBER THEORY" }}{PARA 212 "" 0 "" }{PARA 212 "" 0 "" {TEXT -1 198 "Maple has several functions that are useful in solving problems involving integers. Th e first batch is loaded with the Maple kernel (i.e., they can be used \+ immediately without further preparation.)" }}{PARA 212 "" 0 "" }{PARA 212 "" 0 "" {TEXT -1 43 "1. To find the (n,k) binomial coefficient." }}{PARA 212 "" 0 "" {TEXT -1 18 " binomial(n,k)" }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 15 "binomial(10,3);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"$?\"" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 32 "2. To generate a random number." }}{PARA 212 "" 0 "" {TEXT -1 58 " rand() gener ates a 12 digit positive random integer." }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 9 "rand(); " }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"-Z;`'* z#*" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 126 " rand(m..n) creates \+ a program to generate a random integer between m and n. rand() th en elicits numbers in this range." }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 17 "die :=rand(1..6):" }}}{EXCHG {PARA 213 "> " 0 "" {MPLTEXT 1 0 27 " die(); die(); die(); die();" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"\" " }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"$" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}} {EXCHG {PARA 212 "" 0 "" {TEXT -1 57 "Change the seed to change the se quence of random numbers." }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 12 "_see d :=100:" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 85 "randomize() sets th e seed to depend on the time current when the command was entered." }} }{EXCHG {PARA 213 "> " 0 "" {MPLTEXT 1 0 12 "randomize();" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"+kv`X5" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 54 "3. To employ the division algorithm to divide b by a." } }{PARA 212 "" 0 "" {TEXT -1 71 " iquo(b,a,r) returns the quotient \+ q; enter r to find the remainder." }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 15 "iquo(19,4,'r');" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"%" }}} {EXCHG {PARA 213 "> " 0 "" {MPLTEXT 1 0 2 "r;" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 65 "4. To \+ employ the Euclidean algorithm to find the gcd of a and b." }}{PARA 212 "" 0 "" {TEXT -1 14 " igcd(a,b)" }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 13 "igcd(326,78);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\" \"#" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 109 "Another command is nece ssary in order to express the gcd as a linear combination of a and b: \+ (a,b) = sa + tb." }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 19 "igcdex(326,78 ,s,t);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"#" }}}{EXCHG {PARA 213 "> " 0 "" {MPLTEXT 1 0 4 "s;t;" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#!#6 " }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"#Y" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 31 "5. To find the lcm of a and b." }}{PARA 212 "" 0 "" {TEXT -1 14 " ilcm(a,b)" }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 13 "il cm(326,78);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"&9F\"" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 39 "6. To factor the number n into primes. " }}{PARA 212 "" 0 "" {TEXT -1 17 " ifactors(n)" }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 13 "ifactor(100);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#*&)-%!G6#\"\"#F(\"\"\")-F&6#\"\"&F(F)" }}}{EXCHG {PARA 213 "> " 0 " " {MPLTEXT 1 0 20 "ifactor(1234567890);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#*,-%!G6#\"\"#\"\"\")-F%6#\"\"$F'F(-F%6#\"\"&F(-F%6#\"%.QF(-F%6# \"%2OF(" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 33 "7. To find the ith \+ prime number." }}{PARA 212 "" 0 "" {TEXT -1 17 " ithprime(i)" }} {PARA 213 "> " 0 "" {MPLTEXT 1 0 12 "ithprime(4);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"\"(" }}}{EXCHG {PARA 213 "> " 0 "" {MPLTEXT 1 0 15 " ithprime(1000);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#\"%>z" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 69 "THE FOLLOWING COMMANDS REQUIRE THAT THE NUMTHEORY PACKAGE BE LOADED. " }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 16 "with(numtheory):" }}{PARA 215 "" 1 "" {TEXT 207 68 "Warning, the prot ected name order has been redefined and unprotected" }{TEXT 207 1 "\n" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 50 "8. To find the set of prime factors of integer n." }}{PARA 212 "" 0 "" {TEXT -1 17 " factorse t(n)" }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 15 "factorset(100);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#<$\"\"#\"\"&" }}}{EXCHG {PARA 212 "" 0 "" } {PARA 213 "> " 0 "" {MPLTEXT 1 0 22 "factorset(1234567890);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#<'\"\"#\"\"$\"\"&\"%2O\"%.Q" }}}{EXCHG {PARA 212 "" 0 "" {TEXT -1 61 "9. To obtain the complete list of fact ors of integer n. " }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 14 "divisor s(100);" }}{PARA 214 "" 1 "" {XPPMATH 20 "6#<+\"\"\"\"\"#\"\"%\"\"&\"# 5\"#?\"#D\"#]\"$+\"" }}}{EXCHG {PARA 213 "> " 0 "" {MPLTEXT 1 0 21 "di visors(1234567890);" }}{PARA 216 "" 1 "" {XPPMATH 20 "6#\"&U;#\"&=G#\"&jC$\"&FU$\"&qg$\"&I!Q\"&0T&\"&Xq& \"&E\\'\"&a%o\"'5#3\"\"'!49\"\"':B;\"'N6<\"'IYK\"'qAM\"+!*ycM7\")@ur8 \")U[VF\")jA:T\")0reo\")EXI#)\"**ycM7\"*5U