login
A274552
Numbers k such that sigma(k) == 0 (mod k-3).
11
2, 4, 5, 6, 7, 8, 15, 52, 315, 592, 1155, 2102272, 815634435
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
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