%I #10 Sep 13 2019 11:47:03
%S -1,0,1,1,0,0,-1,-1,1,1,1,-1,-1,0,0,0,1,0,-1,-1,0,-1,0,1,1,1,1,0,0,-1,
%T -1,-1,-1,0,1,0,1,0,0,-1,1,0,-1,-1,1,1,1,0,0,1,0,0,-1,0,1,-1,0,-1,1,1,
%U 1,0,1,1,1,1,1,-1,0,-1,-1,-1,0,0,0
%N Consider numbers n such that mu(n) = mu(n+1), A064148; sequence gives values of mu(A064148(n)).
%H Harvey P. Dale, <a href="/A093317/b093317.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Partition[MoebiusMu[Range[300]],2,1],#[[1]]==#[[2]]&][[All,1]] (* _Harvey P. Dale_, Sep 13 2019 *)
%Y Cf. A008683 (for mu), A064148.
%K sign,easy
%O 1,1
%A _Leroy Quet_, Apr 26 2004
%E More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004
|