### Related

##### gcd-inv_mod-mod-power_mod

p:2932031007403;

q:768614336404564651;

n:p*q;

Calculate

##### gcd-lambda-map

l: [1, 2, 3, 4, 5, 6,...

map (lambda ([a], gc...

Calculate

p:11;

q:107;

n:p*q;

Calculate

p:71;

q:53;

n:p*q;

Calculate

##### gcd

gcd(x^2-14*x+40,x^3-1...

Calculate

gcd(428,136);

Calculate

p:100549887;

q:555876937;

n:p*q;

Calculate

83*37;

82*36;

gcd(3055,2952);

Calculate

##### gcd

gcd(1226987,1879);

1879*653;

Calculate

gcd(100,50);

Calculate

### gcd

Run Example
```(%i1)mod(2^(2*3*4)-1,220459);
(%o1)                                22331
(%i2) gcd(2^(2*3*4)-1,220459);
(%o2)                                  1
(%i3) ```
Run Example
```p:47;
(%o1)                                 47
(%i2) q:59;
(%o2)                                 59
(%i3) n:p*q;
(%o3)                                2773
(%i4) phi_n: (p-1)*(q-1);
(%o4)                                2668
(%i5) e:79;
(%o5)                                 79
(%i6) gcd(e,phi_n);
(%o6)                                  1
(%i7) d:inv_mod(e,phi_n);
(%o7)                                 743
(%i8) m:65;
(%o8)                                 65
(%i9) c:power_mod(m,e,n);
(%o9)                                 870
(%i10) power_mod(c,d,n);
(%o10)                                65
(%i11) ```
Run Example
```load(ctensor);
(%o1)          /usr/share/maxima/5.21.1/share/tensor/ctensor.mac
(%i2) (cframe_flag:false,gcd:spmod,ctrgsimp:true,ratfac:true);
(%o2)                                true
(%i3) lg:diag_matrix(1,-r^2,-r^2,-r^2);
[ 1   0     0     0   ]
[                     ]
[       2             ]
[ 0  - r    0     0   ]
(%o3)                       [                     ]
[             2       ]
[ 0   0    - r    0   ]
[                     ]
[                   2 ]
[ 0   0     0    - r  ]
(%i4) ct_coords:[t,r,th,ph];
(%o4)                           [t, r, th, ph]
(%i5) cmetric(false);
(%o5)                                done
(%i6) christof(mcs);
1
(%t6)                           mcs        = -
2, 2, 2   r

1
(%t7)                           mcs        = -
2, 3, 3   r

1
(%t8)                           mcs        = -
2, 4, 4   r

1
(%t9)                          mcs        = - -
3, 3, 2     r

1
(%t10)                         mcs        = - -
4, 4, 2     r

(%o10)                               done
(%i11)  riemann(true);
1
(%t11)                       riem           = - --
2, 3, 2, 3      2
r

1
(%t12)                       riem           = - --
2, 4, 2, 4      2
r

1
(%t13)                        riem           = --
3, 3, 2, 2    2
r

1
(%t14)                        riem           = --
3, 4, 3, 4    2
r

1
(%t15)                        riem           = --
4, 4, 2, 2    2
r

1
(%t16)                       riem           = - --
4, 4, 3, 3      2
r

(%o16)                               done
(%i17) ricci(true);
2
(%t17)                           ric     = --
2, 2    2
r

(%o17)                               done
(%i18) ```

Help for Gcd