Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
1,2
No more terms < 10^7.
Table of n, a(n) for n=1..4.
muSums = Accumulate@Table[MoebiusMu[k] k, {k, 10^7}]; A174651 = {}; For[i = 1, i <= Length@muSums, i++, If[muSums[[i]] == i, AppendTo[A174651, i]]]; A174651
smQ[x_]:=x==Total[Table[n*MoebiusMu[n], {n, x}]]; Select[Range[6000], smQ] (* Harvey P. Dale, Oct 05 2019 *)
Cf. A008683, A002321, A055615, A068340.
Sequence in context: A161194 A196581 A179245 * A225136 A039445 A300144
Adjacent sequences: A174648 A174649 A174650 * A174652 A174653 A174654
nonn
Carl Najafi, Dec 22 2012
approved