MATHEMATICA
okQ[n_] := (n > 0) && PrimeQ[n]; Select[Range[1000], okQ[# (#+1)/2 - DivisorSigma[1, #]] &] (* _T. D. Noe, _, Dec 15 2011 *)
okQ[n_] := (n > 0) && PrimeQ[n]; Select[Range[1000], okQ[# (#+1)/2 - DivisorSigma[1, #]] &] (* _T. D. Noe, _, Dec 15 2011 *)
_Paolo P. Lava (paoloplava(AT)gmail.com), _, Dec 13 2011
editing
approved
okQ[n_] := (n > 0) && PrimeQ[n]; Select[Range[1000], okQ[# (#+1)/2 - DivisorSigma[1, #]] &] (* T. D. Noe, Dec 15 2011 *)
approved
editing
proposed
approved
editing
proposed
editing
approved
Numbers n such that antisigma(n) (the sum of non-divisors of n) is prime.
proposed
editing
editing
proposed