RosettaCodeData/Task/Summarize-primes/Fermat/summarize-primes.fermat
2023-07-01 13:44:08 -04:00

3 lines
91 B
Text

n:=0
s:=0
for i=1, 162 do s:=s+Prime(i);if Isprime(s)=1 then n:=n+1;!!(n,Prime(i),s) fi od