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