Sum of divisors: Difference between revisions
add fermat
ReeceGoding (talk | contribs) (Added R.) |
(add fermat) |
||
Line 617:
112 168 128 144 120 252 98 171 156 217
</pre>
=={{header|Fermat}}==
<lang fermat>Func Sumdiv(n)=sm:=0;for i=1 to n do if Divides(i,n) then sm:=sm+i fi od; sm.
for i=1 to 100 do !!Sumdiv(i) od</lang>
=={{header|FOCAL}}==
| |||