OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[1, 500, 2], Divisible[DivisorSigma[1, #] - #, 3] &] (* Amiram Eldar, Dec 01 2021 *)
PROG
(PARI) isA349750(n) = ((n%2)&&0==(sigma(n)-n)%3);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 30 2021
STATUS
approved