A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #509
A Mapleben nyers erővel:
Azok az m számok amelyekre teljesül a feltétel, és ezek száma:
restart;
mek:={seq(seq(`if`(m=m^e mod 143,m,NULL),e=1..142),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=1..142),m=1..142);
nops([meparok]);# ezek száma