Length[Select[Range[10^4,10^5],Mod[DivisorSigma[1,#],IntegerLength[DivisorSigma[1,#]]]==0&]]Length[Select[Range[10^4,10^5],Mod[DivisorSigma[1,#],IntegerLength[DivisorSigma[1,#]]]==0&]]

• Natural Language
• Math Input