k = DivisorSum[128, 2^(128/#) MoebiusMu[#] &]/128