5 lines
195 B
Text
5 lines
195 B
Text
ClearAll[Mertens]
|
|
Mertens[n_] := Total[MoebiusMu[Range[n]]]
|
|
Grid[Partition[Mertens /@ Range[99], UpTo[10]]]
|
|
Count[Mertens /@ Range[1000], 0]
|
|
SequenceCount[Mertens /@ Range[1000], {Except[0], 0}]
|