reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
proposed
approved
editing
proposed
With[{k = 1}, Array[DivisorSum[#, 1 &, And[#[[k]] > 0, Total@ #[[k + 1;; 9]] == 0] &@ DigitCount[#] &] &, 105]] (*Michael De Vlieger,Oct 06 2019 *)
proposed
editing
editing
proposed
editing
proposed