DivisorSum[#, 1 &] & /@ Range[100]