A085653 a(n) = smallest integer > n where mu(n) = mu(a(n)).

6, 3, 5, 8, 7, 10, 11, 9, 12, 14, 13, 16, 17, 15, 21, 18, 19, 20, 23, 24, 22, 26, 29, 25, 27, 33, 28, 32, 30, 31, 37, 36, 34, 35, 38, 40, 41, 39, 46, 44, 42, 43, 47, 45, 48, 51, 53, 49, 50, 52, 55, 54, 59, 56, 57, 60, 58, 62, 61, 63, 66, 65, 64, 68, 69, 67, 70, 72

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, 67}] (* Michael De Vlieger, Sep 04 2017 *)

Crossrefs

Cf. A008683, A093316, A093317.

Sequence in context: A217769 A296501 A296491 * A022462 A319894 A241786

Adjacent sequences: A085650 A085651 A085652 * A085654 A085655 A085656

Keyword

nonn

Author

Leroy Quet, Apr 26 2004

Extensions

More terms from Robert G. Wilson v, Apr 26 2004

Status

approved