Length[divisors[n^2]]-n, n=1...1000