A335253 Numbers k such that the abundance (A033880) of k is equal to the deficiency (A033879) of k+2.
12, 76, 488, 556, 1100, 1430, 2408, 8896, 538208, 13685780, 962402768
Offset: 1
Examples
12 is a term since A033880(12) = sigma(12) - 2*12 = 28 - 24 = 4, and A033879(14) = 2*14 - sigma(14) = 28 - 24 = 4.
Programs
-
Mathematica
ab[n_] := DivisorSigma[1, n] - 2*n; Select[Range[10^5], ab[#] == -ab[# + 2] &]
-
PARI
isok(k) = sigma(k) + sigma(k+2) == 4*k+4; \\ Michel Marcus, May 29 2020
Comments