OFFSET
1,1
EXAMPLE
sigma(4) mod (4-3) = 7 mod 1 = 0.
MATHEMATICA
k = -3; Select[Range[1, 10^6], # + k != 0 && Mod[DivisorSigma[1, #], # + k] == 0 &] (* Michael De Vlieger, Jul 01 2016 *)
PROG
(Magma) [n: n in [1..2*10^6] | n ne 3 and SumOfDivisors(n) mod (n-3) eq 0 ]; // Vincenzo Librandi, Jul 02 2016
(PARI) is(n) = if(n == 3, return(0), Mod(sigma(n), n-3)==0) \\ Felix Fröhlich, Jul 02 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Paolo P. Lava, Jun 28 2016
EXTENSIONS
a(12)-a(13) from Giovanni Resta
a(1)=2 inserted by Max Alekseyev, Jun 08 2025
STATUS
approved
