OFFSET
1,1
EXAMPLE
sigma(8) mod (8-7) = 15 mod 1 = 0.
MATHEMATICA
Select[Range[1, 10^6], Mod[DivisorSigma[1, #], # - 7] == 0 &] (* Michael De Vlieger, Jul 05 2016 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Paolo P. Lava, Jul 05 2016
EXTENSIONS
a(13) from Giovanni Resta
Terms 3,5,6 inserted by Max Alekseyev, May 29 2025
a(14) from Max Alekseyev, Jan 30 2026
STATUS
approved
