Factorinteger factorinteger powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod powermod alph powermod bet powermod mod sig powermod

PowerMod[3,2⁰ 5⁰ 647¹,129401]

37336

PowerMod[3,2⁰ 5² 647⁰,129401]

106069

PowerMod[3,2¹ 5⁰ 647¹,129401]

69324

PowerMod[3,2¹ 5² 647⁰,129401]

121618

PowerMod[3,2²¹ 5⁰ 647¹,129401]

74934

PowerMod[3,2² 5² 647⁰,129401]

15421

PowerMod[3,2³ 5⁰ 647¹,129401]

59616

PowerMod[3,2³ 5² 647⁰,129401]

97604

a=7823;k=1234;p=129401;M=104117;

bet=PowerMod[alph,a,p]

20074

sig=Mod[y2*PowerMod[y1,-a,p],p]