Meissel–Mertens constant: Difference between revisions
Content added Content deleted
(Added Sidef) |
(Added Easylang) |
||
| Line 447: | Line 447: | ||
{{out}} |
{{out}} |
||
<pre>MM = 0.2614972131057144</pre> |
<pre>MM = 0.2614972131057144</pre> |
||
=={{header|EasyLang}}== |
|||
{{trans|BASIC256}} |
|||
<syntaxhighlight> |
|||
fastfunc isprim num . |
|||
if num mod 2 = 0 |
|||
if num = 2 |
|||
return 1 |
|||
. |
|||
return 0 |
|||
. |
|||
i = 3 |
|||
while i <= sqrt num |
|||
if num mod i = 0 |
|||
return 0 |
|||
. |
|||
i += 2 |
|||
. |
|||
return 1 |
|||
. |
|||
func log x . |
|||
return log10 x / log10 2.7182818284590452354 |
|||
. |
|||
euler = 0.5772156649 |
|||
for x = 2 to 1e6 |
|||
if isprim x = 1 |
|||
m += log (1 - (1 / x)) + (1 / x) |
|||
. |
|||
. |
|||
numfmt 11 0 |
|||
print "mm = " & euler + m |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
mm = 0.26149724673 |
|||
</pre> |
|||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |
||