Zu Aufgabe 30: --------------------------------------------------------------------------------- > F6:=2^(2^6)+1; F6 := 18446744073709551617 > ifactor(F6); (67280421310721) (274177) N:=F6; x:=3; y:=3; r:=1; z:=0; while (r=1) do z:=z+1; x:=x^256+1 mod N; y:=y^256+1 mod N; y:=y^256+1 mod N; g:=gcd(x-y,N); print(Schritt,z,GGT,g); if (g>1) then N:=N/g; if (isprime(N)) then r:=0; fi; fi; od: Schritt, 64, GGT, 274177 --------------------------------------------------------------------------------- > N:=111111111111111; N := 111111111111111 > ifactor(N); (3) (31) (37) (41) (271) (2906161) x:=0; y:=0; r:=1; while (r=1) do x:=x^2+1 mod N; y:=y^2+1 mod N; y:=y^2+1 mod N; g:=gcd(x-y,N); print(g); if (g>1) then N:=N/g; if (isprime(N)) then r:=0; fi; fi; od: 1 3 1 31 37 1 41 1 271