OFFSET
1,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..100
EXAMPLE
sigma(9) mod (9 - 8) = 13 mod 1 = 0.
MATHEMATICA
Select[Range[1, 10^6], # - 8 != 0 && Mod[DivisorSigma[1, #], # - 8] == 0 &] (* Michael De Vlieger, Jul 05 2016 *)
PROG
(PARI) isok(k) = sigma(k) % (k-8) == 0; \\ Michel Marcus, Oct 14 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jul 05 2016
EXTENSIONS
a(33)-a(59) from Giovanni Resta, Jul 05 2016
Terms 5,6,7 inserted by Max Alekseyev, Jun 04 2025
STATUS
approved
