OFFSET
1,1
EXAMPLE
sigma(15) mod (15 + 9) = 24 mod 24 = 0.
MATHEMATICA
Select[Range[10^6], Mod[DivisorSigma[1, #], # + 9] == 0 &] (* Michael De Vlieger, Jul 06 2016 *)
PROG
(PARI) isok(k) = !(sigma(k) % (k+9)); \\ Michel Marcus, Oct 14 2025
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Paolo P. Lava, Jul 06 2016
EXTENSIONS
a(7)-a(13) from Giovanni Resta, Jul 06 2016
a(14)-a(15) from Max Alekseyev, Jan 30 2026
STATUS
approved
