Summarize primes: Difference between revisions
add Fermat
m (→{{header|FreeBASIC}}: -forgot special case) |
(add Fermat) |
||
Line 36:
The sum of the first 158 primes is 66463 (which is prime).
The sum of the first 162 primes is 70241 (which is prime).
</pre>
=={{header|Fermat}}==
<lang fermat>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
<lang>
{{out}}<pre>
1 2 2
2 3 5
3 7 17
4 13 41
5 37 197
6 43 281
7 281 7699
8 311 8893
9 503 22039
10 541 24133
11 557 25237
12 593 28697
13 619 32353
14 673 37561
15 683 38921
16 733 43201
17 743 44683
18 839 55837
19 881 61027
20 929 66463
21 953 70241
</pre>
| |||