**TI92P*prgm_seProgram file 07/07/08, 11:03RppfV¥Zü(p,a) Prgm ClrIO p-1k 0i While fPart(k)=0 i+1i k/2k EndWhile i-1s (p-1)/2^sq Disp "s=",s,"q=",q If mod(a^q,p)=1 Then Disp "ppf" Stop EndIf For r,0,s-1 If mod(a^(q*2^r),p)=p-1 Then Disp "ppf" Stop EndIf EndFor Disp "pas ppf" EndPrgmäåÜŠH