SG Fórum - Maple - #512

SG Fórum - Maple - #512

Fórum / Felhasználói programok

xDJCx 2011. máj. 04. 20:57 | válasz | #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&#245
; 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

Válasz 'petinho26' üzenetére (#511)