Mertens function: Difference between revisions
→{{header|Nim}}
(Added Dyalect) |
|||
Line 1,750:
M(N) IS ZERO 92 TIMES
M(N) CROSSES ZERO 59 TIMES</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>ClearAll[Mertens]
Mertens[n_] := Total[MoebiusMu[Range[n]]]
Grid[Partition[Mertens /@ Range[99], UpTo[10]]]
Count[Mertens /@ Range[1000], 0]
SequenceCount[Mertens /@ Range[1000], {-1 | 1, 0}]</lang>
{{out}}
<pre>1 0 -1 -1 -2 -1 -2 -2 -2 -1
-2 -2 -3 -2 -1 -1 -2 -2 -3 -3
-2 -1 -2 -2 -2 -1 -1 -1 -2 -3
-4 -4 -3 -2 -1 -1 -2 -1 0 0
-1 -2 -3 -3 -3 -2 -3 -3 -3 -3
-2 -2 -3 -3 -2 -2 -1 0 -1 -1
-2 -1 -1 -1 0 -1 -2 -2 -1 -2
-3 -3 -4 -3 -3 -3 -2 -3 -4 -4
-4 -3 -4 -4 -3 -2 -1 -1 -2 -2
-1 -1 0 1 2 2 1 1 1
92
59</pre>
=={{header|Nim}}==
| |||