STATUS
editing
approved
editing
approved
Numbers n k such that sigma(nk) = 3*sigma(nk+1).
approved
editing
(MAGMAMagma) [n: n in [1..10^7] | SumOfDivisors(n) eq 3*SumOfDivisors(n+1)]; // Bruno Berselli, Mar 25 2013
proposed
approved
editing
proposed
editing
approved
Position[Partition[DivisorSigma[1, Range[78*10^5]], 2, 1], _?(#[[1]] == 3#[[2]]&), {1}, Heads->False]//Flatten (* Harvey P. Dale, Oct 17 2016 *)
approved
editing
reviewed
approved
proposed
reviewed