OFFSET
1,1
MATHEMATICA
Select[3*Range[1, 1400, 2], Mod[DivisorSigma[1, #], 4] == 2 &] (* Amiram Eldar, Feb 13 2022 *)
PROG
(PARI) isA351533(n) = ((n%2) && !(n%3) && (2 == (sigma(n)%4)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 13 2022
STATUS
approved