A174651 Numbers n such that Sum_{k=1..n} k*Mobius(k) = n.

1, 88, 125, 5246

Offset

1,2

Comments

No more terms < 10^7.

Links

Table of n, a(n) for n=1..4.

Mathematica

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 *)

Crossrefs

Cf. A008683, A002321, A055615, A068340.

Sequence in context: A161194 A196581 A179245 * A225136 A039445 A300144

Adjacent sequences: A174648 A174649 A174650 * A174652 A174653 A174654

Keyword

nonn

Author

Carl Najafi, Dec 22 2012

Status

approved