08-05-01.mw

> gcd(45, 63);
 

9 (1)
 

> gcd(1234578878, 1299998094);
 

2 (2)
 

> [seq(i, i=0..12-1)];
 

[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11] (3)
 

> map(x->[x,gcd(x,25)],[seq(i, i=0..25-1)]);
 

[[0, 25], [1, 1], [2, 1], [3, 1], [4, 1], [5, 5], [6, 1], [7, 1], [8, 1], [9, 1], [10, 5], [11, 1], [12, 1], [13, 1], [14, 1], [15, 5], [16, 1], [17, 1], [18, 1], [19, 1], [20, 5], [21, 1], [22, 1], [...
[[0, 25], [1, 1], [2, 1], [3, 1], [4, 1], [5, 5], [6, 1], [7, 1], [8, 1], [9, 1], [10, 5], [11, 1], [12, 1], [13, 1], [14, 1], [15, 5], [16, 1], [17, 1], [18, 1], [19, 1], [20, 5], [21, 1], [22, 1], [...		 (4)
 

> 3^7;
 

2187 (5)
 

> % mod 8;
 

3 (6)
 

> with(numtheory):
 

> phi(1234);
 

616 (7)
 

> gcd(3,1234);
 

1 (8)
 

> 3^phi(1234) mod 1234;
 

1 (9)
 

> 12^phi(1234) mod 1234;
 

618 (10)
 

> gcd(12,1234);
 

2 (11)
 

> gcd(99,1234);
 

1 (12)
 

> 99^phi(1234) mod 1234;
 

1 (13)
 

>