Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Table[Sum[Sum[If[Mod[n, k] == 0, MoebiusMu[n/k]*HarmonicNumber[k], 0], {k, 1,
- n}] - 1, {n, 1, nn}], {nn, 1, 12}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement