A335255 Numbers k such that ab(k) + ab(k+1) + ab(k+2) = 0, where ab(k) is the abundance of k (A033880).
5829840, 3414097920, 39339578248
Offset: 1
Examples
5829840 is a term since ab(5829840) + ab(5829841) + ab(5829842) = 8428320 - 5513402 - 2914918 = 0.
Programs
-
Mathematica
s[n_] := DivisorSigma[1, n] - n; Select[Range[6 * 10^6], s[#] + s[# + 1] + s[# + 2] == 3*# + 3 &]
Comments