Sponsored links: Algebra eBooks
 

Related

totient

totient(19409079690)/...

Calculate

totient

totient(131);

Calculate

totient

totient(19409079690)/...

Calculate

totient

totient(25);

Calculate

totient

totient (50);

Calculate

totient

totient(510510);

Calculate

totient

totient (13);

Calculate

totient

totient(7*13);

Calculate

totient

totient(7);

Calculate

totient

totient(54);

Calculate

totient

Run Example
(%i1)nod(a,b):=block(load("functs"),a*b/lcm(a,b));
                                                       a b
(%o1)            nod(a, b) := block(load("functs"), ---------)
                                                    lcm(a, b)
(%i2) p:next_prime(11651681684);
(%o2)                             11651681689
(%i3) primep(p);
(%o3)                                true
(%i4) b:95647213;
(%o4)                              95647213
(%i5) nod(b,p-1);
(%o5)                                  1
(%i6) y:power_mod(b,totient(p-1)-1,p-1);
(%o6)                             5740660549
(%i7) 
Run Example
nod(a,b):=block(load("functs"),a*b/lcm(a,b));
                                                       a b
(%o1)            nod(a, b) := block(load("functs"), ---------)
                                                    lcm(a, b)
(%i2) P:next_prime(346839367259735);
(%o2)                           346839367259743
(%i3) Q:next_prime(2547393567835935793);
(%o3)                         2547393567835935803
(%i4) R:P*Q;
(%o4)                  883536373229755181255566174278629
(%i5) S:24573579345689235623;
(%o5)                        24573579345689235623
(%i6) nod(S,totient(R));
(%o6)                                  1
(%i7) T:power_mod(S,totient(totient(R))-1,R);
(%o7)                  159209769337262767576690516617307
(%i8) m:282493080360316836307754839048807;
(%o8)                  282493080360316836307754839048807
(%i9) power_mod(m,T,R);
(%o9)                  145361673214437362492555748171908
(%i10) power_mod(145361673214437362492555748171908,348924729875573419,348721431);
(%o10)                             104071727
(%i11) 
Run Example
p:1111111111111111111;
(%o1)                         1111111111111111111
(%i2) nod(a, b):=block(load("functs"),a*b/lcm(a,b));
                                                       a b
(%o2)            nod(a, b) := block(load("functs"), ---------)
                                                    lcm(a, b)
(%i3) primep(p);
(%o3)                                true
(%i4) a:432;
(%o4)                                 432
(%i5) nod(p-1,a);
(%o5)                                 18
(%i6) x:power_mod(a,(totient(p-1)-1),p-1);
(%o6)                         1005515546410608138
(%i7) m:789;
(%o7)                                 789
(%i8) 

Related Help

Help for Totient