%I #14 Sep 04 2017 23:28:31
%S 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,
%T 33,28,32,30,31,37,36,34,35,38,40,41,39,46,44,42,43,47,45,48,51,53,49,
%U 50,52,55,54,59,56,57,60,58,62,61,63,66,65,64,68,69,67,70,72
%N a(n) = smallest integer > n where mu(n) = mu(a(n)).
%H R. Zumkeller, <a href="/A085653/b085653.txt">Table of n, a(n) for n = 1..10000</a>
%t Table[k = n + 1; While[MoebiusMu[n] != MoebiusMu[k], k++]; k, {n, 67}] (* _Michael De Vlieger_, Sep 04 2017 *)
%Y Cf. A008683, A093316, A093317.
%K nonn
%O 1,1
%A _Leroy Quet_, Apr 26 2004
%E More terms from _Robert G. Wilson v_, Apr 26 2004
|