1,1

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

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

Cf. A008683, A093316, A093317.

Sequence in context: A217769 A296501 A296491 * A022462 A319894 A241786

Adjacent sequences: A085650 A085651 A085652 * A085654 A085655 A085656

nonn

Leroy Quet, Apr 26 2004

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

approved