OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1, 400, 2], IntegerExponent[DivisorSigma[1, #], 3] == IntegerExponent[#, 3] &] (* Amiram Eldar, Dec 01 2021 *)
PROG
(PARI) isA349749(n) = ((n%2)&&valuation(sigma(n), 3)==valuation(n, 3));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 30 2021
STATUS
approved