A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #512
Ha jól értem, az e-re 1..142 közé eső számok közül ki kel venni a felsoroltakat. Erre egy megoldás:
restart;
# Az új e számok halmaza (ek):
ek:={$1..142} minus {11,13,22,26,33,39,44,52,55,65,66,77,78,88,91,99,104,110,117,121,130,132} ;
mek:={seq(seq(`if`(m=m^e mod 143,m,NULL),e in ek),m=1..142)};`ennyi m számra teljesül`=nops(mek);
# Így pedig az összes megfelelõ m,e számpár is kilistázható:
meparok:=seq(seq(`if`(m=m^e mod 143,[m,e],NULL),e in ek),m=1..142);
nops([meparok]);# ezek száma