OFFSET
1,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..44
EXAMPLE
sigma(9) mod 9+4 = 13 mod 13 = 0.
MATHEMATICA
k = 4; Select[Range[Abs@ k + 1, 10^6], Mod[DivisorSigma[1, #], # + k] == 0 &] (* Michael De Vlieger, Jul 01 2016 *)
PROG
(Magma) [n: n in [1..2*10^6] | SumOfDivisors(n) mod (n+4) eq 0 ]; // Vincenzo Librandi, Jul 02 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jun 28 2016
EXTENSIONS
a(18)-a(35) from Giovanni Resta, Jul 01 2016
STATUS
approved
