STATUS
proposed
approved
proposed
approved
editing
proposed
editing
proposed
editing
proposed
Table[DivisorSum[n, 1 &, ! Divisible[DivisorSigma[1, n], #] &], {n, 98}] (* Michael De Vlieger, Oct 08 2017 *)
proposed
editing
editing
proposed
editing
proposed