A093317 Consider numbers n such that mu(n) = mu(n+1), A064148; sequence gives values of mu(A064148(n)).
-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, -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, 1, 0, 1, 1, 1, 1, 1, -1, 0, -1, -1, -1, 0, 0, 0
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Partition[MoebiusMu[Range[300]],2,1],#[[1]]==#[[2]]&][[All,1]] (* Harvey P. Dale, Sep 13 2019 *)
Extensions
More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004
Comments