A335254 Numbers k such that the abundance (A033880) of k is equal to the deficiency (A033879) of k+1.
672, 523776, 19327369215
Offset: 1
Examples
672 is a term since A033880(672) = sigma(672) - 2*672 = 2016 - 1344 = 672, and A033879(673) = 2*673 - sigma(673) = 1346 - 674 = 672.
Programs
-
Mathematica
ab[n_] := DivisorSigma[1, n] - 2*n; Select[Range[6 * 10^5], ab[#] == -ab[# + 1] &]
Comments