|
|
A088834
|
|
Numbers k such that sigma(k) == 6 (mod k).
|
|
7
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
Sigma(25) = 31 = 1*25 + 6, so 31 mod 25 = 6.
|
|
MATHEMATICA
|
Select[Range[1000000], Mod[DivisorSigma[1, #] - 6, #] == 0 &] (* T. D. Noe, Dec 03 2013 *)
|
|
PROG
|
(PARI) isok(n) = Mod(sigma(n), n) == 6; \\ Michel Marcus, Jan 03 2023
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|