A093316 a(n) = A085653(n) - n.

5, 1, 2, 4, 2, 4, 4, 1, 3, 4, 2, 4, 4, 1, 6, 2, 2, 2, 4, 4, 1, 4, 6, 1, 2, 7, 1, 4, 1, 1, 6, 4, 1, 1, 3, 4, 4, 1, 7, 4, 1, 1, 4, 1, 3, 5, 6, 1, 1, 2, 4, 2, 6, 2, 2, 4, 1, 4, 2, 3, 5, 3, 1, 4, 4, 1, 3, 4, 5, 1, 2, 3, 5, 3, 1, 4, 5, 1, 4, 1

Offset

1,1

Links

R. Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Table[k = n + 1; While[MoebiusMu[n] != MoebiusMu[k], k++]; k - n, {n, 105}] (* Michael De Vlieger, Sep 04 2017 *)

Crossrefs

Cf. A008683, A085653, A123623. See A093319 for inverse.

Cf. A123623.

Sequence in context: A055185 A281409 A120579 * A085758 A154529 A352375

Adjacent sequences: A093313 A093314 A093315 * A093317 A093318 A093319

Keyword

nonn,easy

Author

Leroy Quet, Apr 26 2004

Extensions

More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004

Status

approved