OFFSET
1,1
COMMENTS
See comments in A348930.
MATHEMATICA
s[n_] := n / 3^IntegerExponent[n, 3]; Select[Range[550], MemberQ[{1, 5}, Mod[#, 6]] && s[DivisorSigma[1, #]] > # &] (* Amiram Eldar, Nov 04 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 04 2021
STATUS
approved