Largest prime factor: Difference between revisions
add fermat
(Added Wren) |
(add fermat) |
||
Line 5:
<br>What is the largest prime factor of the number 600851475143 ?
<br><br>
=={{header|Fermat}}==
<lang fermat>n:=600851475143;
j:=3;
while Isprime(n)<>1 do
if Divides(j, n) then n:=n/j fi;
j:=j+2;
od;
!!n;</lang>
{{out}}<pre>6857</pre>
=={{header|FreeBASIC}}==
| |||